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ABSTRACT 


THE DRV11-J IS A GENERAL PURPOSE PARALLEL INTERFACE FOR THE 
LSI-11 BUS. IT 'IAS A BASIC CONFIGURATION OF 64 TRI-STATE IN/OUT 
LINES DIVIDED »NTO FOUR GROUPS OF 16 BIT WORDS. 

THERE ARE TWO 4K DIAGNOSTICS FOR THE DRV11-J OPTION. 

THE DRV11-J DIAGNOSTIC TEST PART 1 OF 2 CONTAINS A 
SERIES OF TESTS WITHOUT DRV11J INTERRUPTS DESIGNED TO TEST ALL 
LOGIC FUNCTIONS AND DATA PATHS MADE ACCESSIBLE WITH THE LOOPBACK 
CABLE INSER.cD INTO TH£ DRV11-J I/O CONNECTORS. 

THE DRV11-J DIAGNOSTIC PART 2 OF 2 IS A SERIES OF TESTS 
WITH DRV11J INTERRUPTS DESIGNED TO TEST ALL LOGIC AND DATA PATHS 
HADE ACCESSIBLE WITH THE LOOPBACK CABLE INSERTED INTO THE I/O 
CONNECTORS. 

THE DRV11-J IS CONTAINED ON A DOUBLE HEIGHT NODULE. 

THE NODULE CONTAINS TWO 50 PIN CONNECTORS FOR INTERFACING 
TO EXTERNAL USER DEVICES. 

FOR DIAGNOSTIC TESTING. THE DRV11-J CABLE (8C05W-02) BUST 
BE INSTALLED WITH 1/2 TWIST BETWEEN THE 50 PIN CONNECTORS. 


;;GPA 

NOTE: THIS DIAGNOSTIC HAS BEEN NODIFIED TO RUN IN KXT11 (SBC 11/21) 
BASED SYSTENS. THE PROGRAN WILL AUTQNATICALLY ADJUST ITSELF TO RUN 
IN THE APPROPRIATE ENVIRONNENT AS FOLLOWS: 


LSI-11. 11/2. AND 11/23 

CSR RANGE: 160010 TO 177760 

PROGRAMMABLE... 

...VECTOR RANGE: 0000 TO 1774 


SBC 11/21 
1 74000~TO*1 77760 
000 TO 374 


;;GPA 


2.0 REQUIRENENTS 

2.1 EQUIPNENT 

1. PDP1 1/03. 11/23 CONPUTER OR LSI-11 PROCESSOR 
WITH A NININUN OF 4K NENORY. 

2. SERIAL LINE INTERFACE AND CONSOLE TERNINAL 

3. DRV11-J OPTION WITH A BC05W-02 CABLE 

2.2 STORAGE 

THE OROGRAN USES THE LOWER 4K OF NENORY. 

3.0 LOADING PROCEDURE 


SEC 0003 


USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE 




BINARY FORMATTED PAPERTAPES OR XXDP MEDIA 
(FILES WITH .BIC OR .BIN EXTENSIONS ONLY). 


STARTING PROCEDURE 

1. MAKE SURE THE DRV11-J CABLE IS INSERTED WITH 1/2 A TWIST 
ON THE I/O CONNECTORS OF THE DRV11-J OPTION. 

THIS WILL CONNECT PORT A TO PORT C AND CONNECT 
PORT B TO PORT D. 

2. MAKE SURE THE DEVICE BUS ADDRESSES AGREE WITH THE DEFAULT 
VALUES DEFINED IN SECTION 7.1. IF NOT .CHANGE 
LQCATIQN(S) AS DESIRED VIA THE ’ADDRESS/' ODT COMMAND. 

3. THE PROGRAM SHOULD ALWAYS BE STARTED AT 200. STARTING 
AT 200(2006 OR .R CVDRDB UNDER XXDP+).THE PROGRAM 
INITIALIZES ITSELF .PRINTS ITS ID(F1RST TIME ONLY) AND 
THEN PRINTS THAT THE DRV11-J CABLE IS REQUIRED(FIRST TIME 
ONLY) AND THEN PRINTS: SWR-XXXXXX NEW- 

WHERE XXXXXX REPRESENTS THE CURRENT VALUE OF THE SOFTWARE 
SWITCH REGISTER. IF NO CHANGES ARE REQUIRED IN THE SWITCH 
REGISTER THEN JUST HIT CARRIAGE RETURN. 

IF CHANGES ARE REQUIRED. THEN A NEW VALUE MAY BE TYPED 
FOLLOWED BY A CARRIAGE RETURN. 

REFER TO SECTION 5.0 FOR SWITCH REGISTER OPTIONS. 

SOFTWARE SWITCH REGISTER 


OPTIONS 


THE PROGRAM SWITCH DEFAULT MODE IS SWR = 000000 
IF USING A VIDEO TERMINAL .BIT 15 = 1(HALT ON ERROR), 
MAY BE HELPFUL IN KEEPING THE ERROR ON THE SCREEN. 


SWITCH 

SW1 5=1 
SW14=1 
SW13=1 
SW12=1 

SW11=1 

SW09=1 

SW08=1 


OCTAL 

100000 

040000 

020000 

010000 

004000 

001000 

C004XX 


FUNCTION 

HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

INHIBIT ILLEGAL VECTOR 

RETURN ROUTINES 

INHIBIT ITERATIONS 

LOOP ON ERROR 

LOOP ON TEST IN SWR <7-0> 


* SW12 EXPLANATION 

SW12 = 1 WILL STORE THE REGULAR TRAP (PC+2.HALT) 

IN LOCATIONS 20 4-1774 FOR THE VECTOR TESTING. ON 
ILLEGAL VECTOR ERRORS, THIS WILL AID THE USER TO 
DETERMINE THE LOCATION OF THE ILLEGAL VECTOR. 

THE LOOPING CAPABILITIES THAT ARE NORMALLY PROVIDED 
BY ILLEGAL VECTOR SERVICE ROUTINES WHEN SW12=0 WILL 
NO LONGER BE AVAILABLE WHEN SW12 = 1. 




IF USING SW1 2=1 TO TRACK DOWN THE ILLEGAL VECTOR. THE 
USER SHOULD RESTART AT ADDRESS 200 WITH SW12=0 TO 
OBTAIN LOOPING CAPABILITIES AFTER ERROR OCCURS. BftjiTIUce 
VECTOR AREA 0-200 WILL ALWAYS HAVE ILLEGAL VECTOR ROUTINES 
WHErf VECTOR TESTING (0-200) IN ORDER TO PRESERVE PROGRAM. 


SEO 0005 


r ,N T POL 


G 1 


;eq 0006 


* WARNING: 


PLEASE USE "CTRL AND G" KEYS AND WAIT FOR THE 
"CTRL G* TO BE ECHOED BEFORE ATTEMPTING TO HALT THE 
CPU OR TO STOP TESTING OR THE PROGRAM NAY NOT BE 
RESTARTABLE 

PROGRAM RELOCATION FOR LOCATIONS 0-200 TAKES PLACE 
DURING THE VECTOR TESTING OF 0-200. THE NORMAL 
CONTENTS OF 0-200 MAY NOT GET RESTORED IF THE CPU 
IS HALTED AND RELOAD OF THE PROGRAM MAY BE NECESSARY. 


1. THE SOFTWARE SWITCH REGISTER 'SWREG' (LOC. 176) CAN BE 
CHANGED BY USING THE ODT FACILITIES. 


2 . 


THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM 
CONTROL BY TYPING THE 'CONTROL t G' KEYS. THIS 
KEYBOARD OPERATION WILL PRINT OUT THE CURRENT CONTENTS 
AND ACCEPT NEW OCTAL SWITCH REGISTER DATA TERMINATED 
WITH A CARRIAGE RETURN. 


3. ONCE THE ODT MODE HAS BEEN ENTERED BECAUSE OF AN 

ERROR CONDITION WITH BIT15 SET (HALT ON ERROR) , STEP #2 
ABOVE IS OF NO VALUE , SO RESORT TO STEP #1 TO ALTER THE 
SOFTWARE SWITCH REGISTER IF DESIRED BEFORE TYPING 
•P' (CONTINUE). 


6.0 ERROR PFPORTING 


6.1 ERROR COMMENT 

ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION OF 
THE ERROR CAN BE OBTAINED IF NEEDED FROM THE COMMENT AT THE 
ERROR PC OR FROM THE TEST ITSELF. 

6.2 ERROR DATA 


ERROR TITLE TYPE A 

1. REG READ/WRITE ER 

2. IRR REG ER 

3. ACR REG ER 

4. IMR REG ER 

5. ISR REG ER 


6.2.1 



H 1 

6. CHIP STAT ER 

7. MULTIPLE INTERRUPTS RECEIVED 

8. INTERRUPT TEST ERROR 

ERRPC TSTNUM BUSADR VAN ADDR EXPCT RCVD 

XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX 


ERRPC LISTING ADDRESS WHERE THE ERROR WAS DETECTED 

TSTNUM TEST NUMBER WHERE THE ERROR OCCURRED 

BUSADR DRV11J BUS REG ADDRESS OF CONCERNED OPERATION 

VAN VALUE STORED INTO VECTOR ADDRESS MEMORY 

INDICATING BYTE COUNT AND LEVEL. 

ADDR VECTOR ADDRESS 

EXPCT DATA THAT WAS EXPECTED 

RCVD DATA THAT WAS RECEIVED 

6.2.2 ERROR TITLE TYPE B 

1. ILLEGAL INTERRUPT RECEIVED 

ERRPC TSTNUM BUSADR VAN ADDR 

XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX 

ERRPC ADDRESS WHERE THE ERROR WAS DETECTED 

TSTNUM TEST NUMBER WHERE THE ERROR OCCURRED 

BUSADR DRV11J BUS ADDRESS 

VAM VALUE OF VECTOR ADDRESS MEMORY 

AT TIME OF ILLEGAL INTERRUPT. 

ADDR VECTOR ADDRESS 

6.2.3 ERROR TITLE TYPE C 

1 . ILLEGAL VECTOR MEM ADDR ER 

ERRPC TSTNUM TESTPC BUSADR VAM ADDR 

XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX 

ERRPC ADDRESS WHERE ERROR WAS DETECTED 

TSTNUM TEST NUMBER WHERE THE ERROR OCCURED 

TESTPC ADDRESS OF TEST THAT WAS RUNNING 

WHEN DRV11J VECTORED TO THE WRONG ADDRESS. 
BUSADR BUS ADDRESS OF CONCERNED OPERATION 

VAM VALUE OF VECTOR ADDRESS MEMORY 

BYTE COUNT AND LEVEL. 

ADDR CORRECT VECTOR ADDRESS 

6.2.4 ERROR TYPE D 

THIS ERROR IS ONLY FOUND WHEN RUNNING THE VECTOR ADDRESS 
UNIQUENESS TESTS. THE VECTOR MEMORY IS PRESET TO PERFORM 
64 INTERRUPTS, INTERRUPT SERVICE ROUTINES ARE STORED FROM 
VECTORS 300 TO 674. THE ROUTINES WILL STORE THE VALUE OF 
THE VECTOR ADDRESS WHERE THEY CAME FROM IN A BUFFER 
TO COMPARE AFTER ALL INTERRUPTS TAKE PLACE. THE BUFFER 
SHOULD THEN HAVE ADDRESS VALUES IN CONSECUTIVE 
ORDER STARTING WITH VECTOR VALUE 300 AND ENDING WITH 
VECTOR VALUE 674. 




1. VECT ADDR MEM ER 

ERRPC TSTNUM BUSADR EXPCT RCVD 

XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX 


ERRPC 

TSTNUM 

BUSADR 

EXPCT 

RCVO 

MISCELLANEOUS 


ADDRESS WHERE ERROR WAS DETECTED 
TEST NUMBER WHERE ERROR OCCURRED 
STARTUP BUS ADDRESS BEFORE VECTOR UNIQUENESS 
’S IS THE EXPECTED VECTOR ADDRESS 
VECTOR ADDRESS VALUE STORED IN BUFFER 


DRV11-J BUS ADDRESS MODIFICATION 

MODIFY LOCATION 'SBASE ’ (ADDR: 2244) IF BASE BUS ADDRESS IS 
NOT 164160. 

XXDP/APT NOTES 

THIS DIAGNOSTIC DOES SUPPORT ACT AND APT ENVIRONMENTS. 

POWER FAIL 

A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON SYSTEMS WITH 
NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE). 

MULTIPLE DRV11J INTERFACE TESTING 

THIS PROGRAM DOES NOT ,, AUTO-SIZE" THE NUMBER OF DRVlIJ’S CONNECTED. 
THIS DIAGNOSTIC WILL TEST SEQUENTIALLY UP TO 4 DRV11J INTERFACES 
WITH CONTIGUOUS BUS ADDRESSES. THIS IS ACCOMPLISHED . 

BY THE USER SETTING UP LOCATION 'SDEVM" (ADDR: 2246) WITH A 
BIT MAP INDICATING WHAT INTERFACES ARE TO BE TESTED. 

I.E. 8IT0= 1 SAYS TEST IS! DRV11J, 

BIT1= 1 SAYS TEST 1ST DRV11J 
BIT2= 1 SAYS TEST 2ND DRV11J 
BIT3= 1 SAYS TEST 3RD DRV11J 


1ST UNIT 
2ND UNIT 
3RD UNIT 
4TH UNIT 


STARTING CSRA 
STARTING CSRA 
STARTING CSRA 
STARTING CSRA 


164160 SDEVM = 1 
164140 SDEVM = 3 
164120 SDEVM = 7 
164100 SDEVM = 17 


RESTRICTIONS 

ALWAYS TYPE "CTRL G" AND WAIT FOR ECHO OF CHARACTERS 
BEFORE HALTING THE CPU OTHERWISE PORTIONS OF THE 
PROGRAM MAY NOT GET RESTORED. FOR MORE INFORMATION 
REFER TO SECTION 5.2. 

EXECUTION (IME 

EXECUTION TIME WILL BE LESS THAN 30 SECONDS 
PER DRV11J UNIT CONNECTED. AN tND PASS" 

MESSAGE INDICATES ALL TESTS HAVE COMPLETED ON 
ALL SELECTED UNITS. 


EQ 0008 




PROGRAM TEST DESCRIPTIONS 


GENERAL 

THIS DIAGNOSTIC CONTAINS A SERIES OF INDEPENDENT TESTS DESIGNED 
TO TEST LOGIC FUNCTIONS AND DATA PATHS OF THE DRV11J OPTION. 
TESTING IS ACCOMPLISHED WITH THE AID OF THE 
DRV11J LOOP BACK CABLE PROVIDED FOR DIAGNOSTIC TESTING. 

A COMPLETE LIST OF TESTS IS AVAILABLE IN THE TABLE OF CONTENTS 
AT THE BEGINNING OF THE LISTING. THE COMMENT FIELD WITHIN 
EACH TEST CAN BE BENEFICIAL IN TEST UNDERSTANDING. 

REFERENCES ARE MADE IN THE LISTING TO THE TWO INTERRUPT 
CONTROL CHIPS USED ON THE DRV11J AS GROUP1 AND GROUP2 . 


GROUP1 CHIP 
GROUP2 CHIP 


CONTROL FOR GROUP 1 
DATA FOR GROUP 1 
CONTROL FOR GROUP2 
DATA FOR GROUP2 


TEST 1 - TEST CHIP INTERRUPT, GROUP1 ,GROUP2 

THIS TEST WILL CHECK THE ABILITY OF EACH INTERRUPT 
CONTROL CHIP TO INTERRUPT TO COMMON VECTOR 300. 

THIS TEST WILL ALSO CLEAR THE HIGHEST PRIORITY 
I SR BITS WITH TEST VARIATIONS OF IRR AND 
IMR BITS. 


TEST 2 - TEST ACR/ISR INTERRUPT, GROUP 1, GROUP 2 

THIS TEST WILL TEST THE ABILITY OF BOTH GROUPS 
TO INTERRUPT TO COMMON VECTOR 300 AND THE ABILITY 
OF THE ACRCAUTOCLEAR REGISTER TO CLEAR THE ISR 
AFTER BEING SET AND MASKED BY COMBINATIONS OF IRR BITS 
AND IMR BITS. 

TEST 3 - TEST VECTOR ADDR MEM, LEV 0-7.BY0-3, (204-1774) .GRPS 1,2 

THIS TEST WILL CHECK BOTH GROUPS.ONE AT A TIME. TO VECTOR 
FROM ADDRESS 204 TO ADDRESS 1774 FOR LEVELS 0-7 AND 
FOR BYTE COUNTS 1-4. THE BYTE COUNT NUMBER WILL INDICATE 
THE NUMBER OF INTERRUPTS AT A GIVEN ADDRESS. 

THE IRR. IMR AND ACR REGISTERS WILL ALL BE EXERCISED 
AND CHECKED TO INSURE PROPER VECTORING. 

TEST 4 - TEST VECTOR ADDR MEM, LEV 0-7.8Y0-3. (0-200) , GRPS 1,2 

THIS TEST WILL CHECK BOTH GROUPS.ONE AT A TIME, TO VECTOR 
FROM ADDRESS 0-200 FOR LEVELS 0-7 AND FOR BYTE COUNTS 1-4. 

TESTS ARE DONE TO INSURE THAT INTERRUPTS ONLY TAKE PLACE 
WHEN EVERYTHING IS READY. THE CHIP BEING ARMED, INTERRUPT 
ENABLE IS SET AND THE PROPER IMR AND IRR BITS ARE SET. 

AFTER THE INTERRUPTS CHECK TO INSURE THAT THE INTERRUPTS 
GENERATED MATCH THE BYTE COUNT AND THAT THE PROPER 
ISR BITS WERE SET AND THE PROPER IRR BITS WERE CLEARED. 


:Q 0009 



9.5 


9.6 


K 1 

TEST 5 - TEST VECTOR AODR UNIQUENESS IN FIXED NODE FOR GROUPS 1.2 

THIS TEST WILL CHECK THE ^XED PRIORITY OF THE TWO 
INTERRUPT CONTROL CHIPS AS WELL AS THE ADDRESSING 
CAPABILITY OF THE VECTOR ADDRESS NENORY. 

THE AUTOCLEAR REGISTER(ACR) IS USED TO CLEAR OUT THE 

SN»3 & E ?sS RKISTM T Wlu"lHEN E ALLOy JW/tlv* 

THE^ECTOR^NORY 1 Is A PRESET N TO R PERFORN 64 UNIQUE INTERRUPTS. 

300-6T^ T EACH V INTERRUPT N SERVICE routine upon interrupt 

ENTRY WILL STORE THE ADDRESS OF ITS VECTOR 

IN A 3UFFER fX A CONPARE AFTER 64 INTERRUPTS TAKE PLACE. 

THE 'JUFFER SHOULD THEN HAVE ADDRESS VALUES IN CONSECUTIVE 
ORDER STARTING WITH VECTOR VALUE 300 AND ENDING WITH 
VECTOR VALUE 674. 

TEST 6 - TEST VECTOR ADDRESS UNI QUENESS ,ROTAT I NG PRIORITY 
FOR BOTH GROUPS 1,2 

THIS TEST WILL CHECK THE ROTATING PRIORITY OF EACH 

OF THE TWO INTERRUPT CONTROL CHIPS AS WELL AS THE ADDRESSING 

CAPABILITY OF THE VECTOR ADDRESS NENORY. 

THE VECTOR ADDRESS NENORY IS PRESET FOR 64 UNIQUE INTERRUPTS. 
INTERRUPT SERVICE ROUTINES ARE STORED FRON VECTORS 300-674. 

ALL IRR BITS ARE SET AND ALL INR BITS ARE CLEARED. 

AFTER THE FIRST FOUR INTERRUPTS FRON IRRO TAKES PLACE, 

THE ISRO BIT WILL SET AND IRRO BIT WILL CLEAR. 

TO PROVE ROTATION OF PRIORITY. THE ISRO BIT IS CLEARED 
AND THE IRRO BIT IS SET AGAIN IN ORDER TO PROVE THAT 
IRR1 WILL NOW BE CONSIDERED THE HIGHEST PRIORITY AND 
IRRO THE LOWEST PRIORITY. THIS FLOW IS REPEATED FOR 
ALL LEVELS OF GROUP 1(0-7). THEN GROUP 2 IS TESTED 
IN THE SANE NANNER FOR LEVELS 0-7. EACH INTERRUPT 
SERVICE ROUTINE UPON ACCESS FRON AN INTERRUPT WILL STORE 
THE ADDRESS OF THE VECTOR WHERE THE ROUTINE RESIDES IN 
A BUFFER. AFTER ALL 64 INTERRUPTS TAKE PLACE (4 AT A TINE 
FOR EACH LEVEL) THE BUFFER WILL BE CHECKED FOR CONSECUTIVE 
VECTOR VALUES OF 300-674. THIS WILL INSURE THAT PROPER 
VECTOR ADDDRESSING AND ROTATION OF PRIORITIES WAS 
CONPLETED. 


10.0 
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SEO 0011 
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;;GPA .HEADER VCVDRDA DRV11J DIAG TST PRT2 /.1979.VBILL HEAVEY/ 
.TITLE CVDRD8 DRV11J DIAG TST PRT2 
.-•COPYRIGHT (C) 1979 
.-•DIGITAL EQUIPMENT CORP. 

.-•HAYNARD. HASS. 01754 

; *PR0GRAH BY BILL HEAVEY 

;*THIS PROGRAH UAS ASSEMBLED USING THE PDP-11 MAINDEC SYSHAC 
; ‘PACKAGE (HAINDEC-1 1-DZQAC-C5) , JAN. 1981. 

&TN=1 

SSUR= 160000 .-.-HALT ON ERROR. LOOP ON TEST. INHIBIT ERROR TYPOUT 

;* EDITED TO PERHIT DRV'S TO RUN ON FALCON (KXT11 ) . ;;GPA 

•• G. PASOUANTONIO. JULY '81 ;;GPA 

isURsI 65400 
$TN=1 

.SBTTL OPERATIONAL SWITCH SETTINGS 


SWITCH 

USE 

15 

HALT ON ERROR 

14 

LOOP ON TEST 

13 

INHIBIT ERROR TYPEOUTS 

11 

INHIBIT ITERATIONS 

9 

LOOP ON ERROR 

8 

LOOP ON TEST IN SWR<7:0> 


.S8TTL BASIC DEFINITIONS 

.-•INITIAL ADDRESS OF THE STACK POINTER •** 1100 *** 

?EQUIV EMT?ERROR .-.-BASIC DEFINITION OF ERROR CALL 

.EQUIV IOT.SCOPE ;;BASIC DEFINITION OF SCOPE CALL 


.-•MISCELLANEOUS DEFINITIONS 

CODE FOR HORIZONTAL TAB 
CODE FOR LINE FEED 
CODE FOR CARRIAGE RETURN 
CODE FOR CARRIAGE RETURN-LINE FEED 
PROCESSOR STATUS WORD 


HT= 

LF= 

CR= 

CRLF= 

PS= 

.EQUIV 


11 
12 
15 
200 
177776 
PS.PSW 


• L "Vi V r JV 

STKLMT= 177774 


PIRQ= 

DSUR= 

DDISP= 


177772 

177570 

177570 


STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 


.-•GENERAL PURPOSE REGISTER DEFINITIONS 


R0= 
R1 = 
R2= 
R3= 
R4= 
R5= 
R6= 
R7= 


XO 

XI 

X2 

X3 

X4 

X5 

X6 

X7 


GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
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BASIC DEFINITIONS 
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( 1 ) 
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(1) 
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( 1 ) 

( 1 ) 

( 1 ) 

(1) 
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(1) 

( 1 ) 
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( 1 ) 
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(1) 

(1) 

(1) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ' 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 


000006 

000007 


000000 

000040 

000100 

000140 

000200 

000240 

000300 

000340 


100000 

040000 

020000 

010000 

004000 

002000 

001000 

000400 

000200 

000100 

000040 

000020 

000010 

000004 

000002 

000001 


SP= 

PCs 


X6 

X7 


n i 
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;; STACK POINTER 
; ; PROGRAM COUNTER 


.-•PRIORITY LEVEL DEFINITIONS 


PR0= 
PR1 = 
PR2= 
PR3= 
PR4= 
PR5= 
PR6= 
PR7= 


0 
40 
100 
140 
200 
240 
300 
340 


PRIORITY LEVEL 0 
PRIORITY LEVEL 1 
PRIORITY LEVEL 2 
PRIORITY LEVEL 3 
PRIORITY LEVEL 4 
PRIORITY LEVEL 5 
PRIORITY LEVEL 6 
PRIORITY LEVEL 7 


;*"SWITCH REGISTER" SUITCH DEFINITIONS 


SU15= 
SW14= 
SW13= 
SU12= 
SU11 = 
SU10= 
SW'09= 
SW08= 
SW07= 
SW06= 
SW05= 
SU04= 
SW03= 
SWO 2= 
SW01 = 
swoos 

.EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 

.EQUIV 


100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 
20 
10 
4 
2 
1 

SW09.SW9 
SW38.SW8 
SW07.SW7 
SW06,SW6 
5W05 , SW5 
SW04.SW4 
SW03.SU3 
SW02.SW2 
SU01.SU1 
S WOO. SWO 


100000 

; *DATA BIT DEFJ 
BITISs 100000 


BIT14= 40000 


8IT13s 20000 


BIT12= 10000 

•ft 

BITIIs 4000 

iT»r. il \ * . 

BIT10= 2000 

•Til ft 

81 T09= 1000 

Vr V 

8IT08= 400 

•M»Wl 

BIT07= 200 


BIT06= 100 

*i*i*t*» ’ •MWiiPP 

BIT05= 40 


BIT04= 20 

itIvi 

BIT03= 10 


BIT02= 4 


SEQ 0012 
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(1) 
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(1) 

(1) 
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N 1 
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000004 

000010 

000014 

000014 

000014 

000020 

000024 

000030 

000034 

000060 

000064 

ooch o 

164*60 

000001 

100000 


001 O' 



BIT01* 

BITOO= 

.EOUIV 

.EOUIV 

.EOUIV 

.EOUIV 

.EOUIV 

.EOUIV 

.EOUIV 

.EOUIV 

.EOUIV 

.EOUIV 

; ‘BASIC 

ERAVEC- 

RESVEC= 

TBITVECj 

TRTVEC= 

BPTVEC= 

IOTVEC* 

PWRVEC= 

EMTVEC= 

TRAPVEC 

TKVEC* 

TPVEC= 

PIRQVEC 

ABASE 3 

ADEVH= 

RDY- 

DIR= 

IE= 


2 

1 

BIT09.BIT9 
8JT08.BIT8 
BIT07.BIT7 
BIT06.BIT6 
BIT05.BIT5 
BIT04 ,BI T4 
BJT03.BIT3 
BIT02.BIT2 
BIT01 ,BIT1 
BITOO.BITO 

'•CPU*' TRAP 
4 

10 

:14 

14 

14 

20 

24 

30 

*34 

60 

$0 

164160 

1 

BIT15 

BIT8 

BIT9 


VECTOR ADDRESSES 

; ; TIRE OUT AND OTHER ERRORS 
;; RESERVED AND ILLEGAL INSTRUCTIONS 
;;‘V BIT 
;; TRACE TRAP 
; .-BREAKPOINT TRAP (BPT) 

;; INPUT/OUTPUT TRAP (IOT) “SCOPE** 
; .-POWER FAIL 

; ; EMULATOR TRAP (ENT) “ERROR** 

;; r *TRAP'* TRAP 

; ; TTY KEYBOARD VECTOR 

;;TTY PRINTER VECTOR 

;; PROGRAM INTERRUPT REOUEST VECTOR 

;§ASE ADDRESS 

.-DEFAULT TO ONE DRV11J 


.-CHIP COMMAND SUMMARY 
CIRMR* 20 
CSIRMR* 30 

CIMR* 40 
CSIMR* 50 
SIMR* 60 
SSIMR* 70 

CIRR* 100 
CSIRR* 110 
SIRA* 120 
SSIRR* 130 

CHPISA* HO 
CISR* 160 
CSISA- 170 

m us 


; CLEAR IRR AND I MR 

.-CLEAR SINGLE IRR AND IMR BIT 

.-CLEAR IMR 

.-CLEAR SINGLE IMR BIT 
.-SET ALL IMR BITS 
; SET SINGLE IMR BITS 

.-CLEAR IRR 

.-CLEAR SIN6LE IRR BITS 
.-SET ALL IRR BITS 
.-SET SINGLE IRR BITS 

; CLEAR HIGHEST PRIORITY ISR BIT 
.CHAR ISR 

; CLEAR SINGLE ISR BIT 

.-LOAD MODE BITS M0-M4 
.-LOAD MODE BITS M5-M7 


a 


;CHIP MODE BIT PRESELECTION 
ft ISA* 24C 

MIMA- 


V 


-J. 
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50 

51 

52 

53 

54 

55 

56 

57 

58 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 

59 

60 

61 


000174 

000176 

000200 

000100 


000250 

000254 


000300 

000260 

000340 


000000 


000174 

000000 

000000 

000137 002476 
000100 

000104 000200 


B 2 
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BASIC DEFINITIONS 

MIRR= 250 
MACR= 254 

.-CHIP WRITE PRESELECTION 
PACR= 300 
PIMR* 260 
PVMA= 340 

.S8T7L TRAP CATCHER 

-C 

•ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".♦2, HALT" 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.*174 

DISPREG: .WORD 0 .-.-SOFTWARE DISPLAY REGISTER 

SWREG: .WORD 0 ; .-SOFTWARE SWITCH REGISTER 

.SBTTL STARTING ADDRESS(ES) 


SEQ 0014 


.-PRESELECT AUTO CLEAR REG. FOR WRITING 
; PRESELECT IMR REG. FOR WRITING 
.-PRESELECT VECTOR MEMORY ADDRESS 


000002 


JMP 
.*100 
.WORD 


a#START ; ; JUMP TO STARTING ADDRESS OF PROGRAM 

104.200.2 ; IF ’B EVENT* ON Q BUS IS CONNECTED 

.-IGNORE IT’S INTERRUPT - JUST DO A RTI 


CVDRDB DRV11J DIAC TST PRT2 m 
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0000 A 6 
000052 


000106 

000046 

010760 



000024 

000044 


002000 

002000 

002002 

002004 

002006 

002010 

002012 


002000 

000024 

000200 

000044 

002000 

002000 


000000 

002170 

000014 

000036 

000036 

000031 
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ACT11 HOOKS 

.SBTTL ACT11 HOOKS 


SEQ 0015 


; HOOKS REQUIRED BY ACT11 
$SVPC=. 

.=46 

SENDAD 

.=52 

.WORD 0 

.=$SVPC 

.=2000 


• SBTT.. APT PARAMETER BLOCK 


.SAVE PC 

; ; 1 > SET L0C.46 TO ADDRESS OF SENDAD IN .SCOP 

; ;2) SET LOC.52 TO ZERO 
;; RESTORE PC 

.•LONGEST TEST TIME 
.-1ST PASS RUN TIME 
.•ADDITIONAL RUN TIME 


SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


.$X=. 
.=24 
200 
.=44 
SAPTHDR 
. = .$X 


.•SAVE CURRENT LOCATION 

.-SET POWER FAIL TO POINT TO START OF PROGRAM 

.-FOR APT START UP 

.•POINT TO APT INDIRECT ADDRESS PNTR. 

.•POINT TO APT HEADER BLOCK 
.•RESET LOCATION COUNTER 


SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP1 1 DIAGNOSTIC 
INTERFACE SPEC. 


SAPTHD : 

SHIBTS: .WORD 0 

SMBADR: .WORD $MAIL 

STSTM: .WORD 12. 

$PASTM: .WORD 30. 

SUNITM: .WORD 30. 


TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

ADDRESS OF APT MAILBOX (BITS 0-15) 

RUN t!mE°IN L SECS? T 0F E 1ST PASS ON 1 UNIT (QUICK VERIFY) 
ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


.WORD JU. ; ,'ADDJ UUNNL NUN I ur n rnj, 

.WORD SETEND-S&AIL/2 ; .-LENGTH MAI LBOX-E TABLE (WORDS) 


CVDRD6 DRV11J DIA6 TST PRT2 
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69 

( 1 ) 

( 2 ) 

( 1 ) 

( 1 ) 


( 2 ) 

( 2 ) 

( 2 ) 

( 1 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

(?) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 

( 2 ) 
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COMMON TAGS 

.S6TTL COMMON TAGS 
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SEQ 0016 


•THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
•USED IN THE PROGRAM. 


\ 1 / 
(1) 


002100 

.=2100 


(1) 

002100 


SCMTAG: 


(1) 

002100 

000000 

.WORD 

0 

(1) 

002102 

000 

STSTNM: .BYTE 

0 

(1) 

002103 

000 

SERFLG: .BYTE 

0 

(1) 

002104 

000000 

SICNT: .WORD 

0 

(1) 

002106 

000000 

SLPADR: .WORD 

0 

(1) 

002110 

000000 

SLPERR: .WORD 

0 

(1) 

002112 

000000 

(ERTTL: .WORD 

0 

(1) 

002114 

000 

SITEMB: .BYTE 

0 

(1) 

002115 

001 

SERMAX: .BYTE 

1 

(1) 

002116 

000000 

SERRPC : .WORD 

0 

(1) 

002120 

000000 

SGDADR : .WORD 

0 

(1) 

002122 

000000 

SBDADR : .WORD 

0 

(1) 

002124 

000000 

SGDDAT : .WORD 

0 

(1) 

002126 

000000 

SBDDAT: .WORD 

0 

(1) 

002130 

000000 

.WORD 

0 

(1) 

002132 

000000 

.WORD 

0 

(1) 

002134 

000 

SAUTOB: .BYTE 

0 

(1) 

002135 

000 

SINTAG: .BYTE 

0 

(1) 

002136 

000000 

.WORD 

0 

(1) 

002140 

177570 

SWR: .WORD 

DSWR 

(1) 

002142 

177570 

DISPLAY: .WORD 

DDI SP 

(1) 

002144 

177560 

STKS: 177560 


(1) 

002146 

177562 

STKB: 177562 


(1) 

0021 5C 

177564 

STPS: 177564 


(1) 

002152 

177566 

STPB: 177566 


(1) 

002154 

000 

SNULL: .BYTE 

0 

(1) 

002155 

002 

SFILLS: .BYTE 

2 

(1) 

002156 

012 

SFILLC: .BYTE 

12 

(1) 

002157 

000 

STPFLG: .BYTE 

0 

(1) 

002160 

000000 

STIMES: 0 


(1) 

002162 

000000 

(ESCAPE :0 


<p 

002164 

077 

SQUES: .ASCII 

/?/ 

(1) 

002165 

015 

SCRLF : .ASCII 

<15> 

(1) 

002166 

000012 

SLF: .ASCIZ 

<12> 


;;START OF COMMON TAGS 

.‘.‘CONTAINS THE TEST NUMBER 
;; CONTAINS ERROR FLAG 
; .‘CONTAINS SUBTEST ITERATION COUNT 
..‘CONTAINS SCOPE LOOP ADDRESS 
.‘.‘CONTAINS SCOPE RETURN FOR ERRORS 
.‘.‘CONTAINS TOTAL ERRORS DETECTED 
;; CONTAINS ITEM CONTROL BYTE 
.‘.‘CONTAINS MAX. ERRORS PER TEST 
;; CONTAINS PC OF LAST ERROR INSTRUCTION 
..‘CONTAINS ADDRESS OF 'GOOD' DATA 
.‘.CONTAINS ADDRESS OF 'BAD' DATA 
;; CONTAINS 'GOOD' DATA 
.'.'CONTAINS 'BAD* DATA 
; .‘RESERVED*— NOT TO BE USED 

; .‘AUTOMATIC MODE INDICATOR 
;; INTERRUPT MODE INDICATOR 

; .-ADDRESS OF SWITCH REGISTER 
.‘.‘ADDRESS OF DISPLAY REGISTER 
;;TTY KBD STATUS 
; ; TTY KBD BUFFER 

;;TTY PRINTER STATUS REG. ADDRESS 
; ; TTY PRINTER BUFFER REG. ADDRESS 
.‘.•CONTAINS NULL CHARACTER FOR FILLS 
; .-CONTAINS * OF FILLER CHARACTERS REQUIRED 
.‘.‘INSERT FILL CHARS. AFTER A '1INE FEED" 

.* .''TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES) 

;;MAX. NUMBER OF ITERATIONS 

..ESCAPE ON ERROR ADDRESS 

.-.'QUESTION NARK 

.-.‘CARRIAGE RETURN 

.-.‘LINE FEED 


.S8TTL APT MAI LBOX-E TABLE 




.EVEN 



002170 


(MAIL: 



002170 


SMSGTY: .WORD 

AMSGTY 


002172 

iSSBHiliSlii 

(FATAL: .WORD 

AFATAL 

• 

002174 

000000 

(TESTN: .WORD 

ATESTN 


002176 

000000 

(PASS: .WORD 

APASS 

• 

002200 

I'fflf . 

(DEVCT : .WORD 

ADEVCT 


002202 

I'K'M'® -v . 

(UNIT: .WORD 

AUNIT 


002204 

000000 

(MSGAD: .WORD 

AMSGAD 


002206 


(MSGLG : .WORD 

AMSGLG 

• 

• 


APT MAILBOX 
MESSAGE TYPE CODE 
FATAL ERROR NUMBER 
TEST NUMBER 
PASS COUNT 
DEVICE COUNT 
I/O UNIT NUMBER 
MESSAGE ADDRESS 
MESSAGE LENGTH 
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SEQ 0017 


(2) 

002210 


(2) 

002210 

000 

(2) 

002211 

000 

(2) 

002212 

000000 

(2) 

002214 

000000 

(2) 

002216 

000000 

(2) 



(2) 



(2) 



(2) 



(2) 



(2) 


000 

(2) 

002220 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

002221 

000 

002222 

000000 

002224 

000 

(2) 

002225 

000 

(2) 

002226 

000000 

(2) 

002230 

000 

(2) 

002231 

000 

(2) 

002232 

000000 

(2) 

002234 

000 

(2) 

002235 

000 

(2) 

002236 

000000 

(2) 

002240 

000000 

(2) 

002242 

000000 

(2) 

002244 

164160 

(2) 

002246 

000001 

(2) 

002250 

000000 

(2) 

002252 


(2) 




SE TABLE: 

SENV: 

IENVM: 

SSWREG: 

SUSWR: 

JCPUOP: 


irtAWSl : 
SMTYP1 : 
;* 

;* 

;* 

inADRI: 

§MM$2: 

SMTYP2: 

SMADR2: 

SMAMS3: 

SMTYP3: 

JHADR3: 

SMAMS4: 

SMTYP4: 

SMADR4 : 

$VEC T 1 : 

SVECT2: 

$6ASE: 

SDEVM: 

iCDWl : 

SETEND: 

.MEXIT 


; ;APT ENVIRONMENT TABLE 
.BYTE AENV ;; ENVIRONMENT BYTE 

.BYTE AENVM ;; ENVIRONMENT MODE BITS 

.WORD ASWREG ;;APT SWITCH REGISTER 

.WORD AUSWR ; ;USER SWITCHES 

.WORD ACPUOP »;CPU TYPE. OPTIONS 

BITS 15-1 1=CPU TYPE 

1 1 / 04=01 . 1 1 /05=02 . 1 1 /20=03 . 1 1 /40*04 .11/45=05 
1 1/70=06, PDQ=07,Q=10 
BIT 1 0=REAL TIME CLOCK 
BIT 9=EL0ATING POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
.BYTE AMAMS1 ;;HIGH ADDRESS. M.S. BYTE 

.BYTE AMTYP1 ;;MEM. TYPE,BLK#1 

HEM. TYPE BYfE — (HIGH BYTE) 

900 NSEC CORE=001 
300 NSEC BIPOLAR=002 
500 NSEC M0S=003 

.WORD AMADR1 * 'SeSt < LAST R ADDR?t3 # BY T ES, THI S WORD AND LOW OF ''TYPE" ABOVE 

.BYTE AMAMS2 ;;HIGH ADDRESS.M.S. BYTE 

.BYTE AMTYP2 ;; MEM. TYPE .BLK#2 

.WORD AMADR2 ;;MEM.LAST ADDRESS. BLK#2 

.BYTE AMAMS3 ;;HIGH ADDRESS, M.S. BYTE 

.BYTE AMTYP3 ; ;MEM. TYPE ,BLK#3 

.WORD AMADR3 ;; MEM. LAST ADDRESS, BLK#3 

.BYTE AMAMS4 ;;HIGH ADDRESS.M.S. BYTE 

.BYTE AMTYP4 ;; MEM. TYPE, BLK#4 

.WORD AMADR4 ;;MEM.LAST ADDRESS. BLK#4 

.WORD AVECT1 ; ; INTERRUPT VECTORfl.BUS PRIORITYfl 

.WORD AVECT2 ;; INTERRUPT VECT0R#2BUS PRI0RITY#2 

.WORD ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
.WORD ADEVM ; .-DEVICE MAP 

.WORD ACDW1 ; .-CONTROLLER DESCRIPTION W0RD#1 


i 
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(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

( 1 ) 

(1) 

(1) 

(1) 

(1) 

(1) 

( 1 ) 

(1) 

(1) 002252 

71 002252 016101 

72 002254 016416 

73 002256 016666 

74 002260 000000 

75 

76 

77 002262 016120 

78 002264 016463 

79 002266 016702 

80 002270 000000 

81 

83 002272 016142 

84 002274 016463 

85 002276 016702 

86 002300 000000 

87 

88 

89 002302 016155 

90 002304 016463 

91 002306 016702 

92 002310 000000 

93 

95 002312 016170 

96 002314 016463 

97 002316 016702 

98 002320 000000 

99 

101 002322 016203 

102 002324 016463 

103 002326 016702 

104 002330 000000 

105 

!<$ 002332 016375 

108 002334 016416 

109 002336 016666 

110 002340 000000 
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^0 0018 


.S8TTL ERROR POT T ER TABLE 

•THIS TABLE CONI .NS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

•THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

•LOCATION I1TEHB. THIS NUHBER INDICATES .WHICH ITEH IN THE TABLE S PERTINENT. 


•NOTE! 

•N0TE2: 


IF SITEMBIS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;* 

;* 

;* 

;t 

EM 

DH 

DT 

DF 

;; POINTS 
; .-POINTS 
; .-POINTS 
;; POINTS 

TO THE 
TO THE 
TO THE 
TO THE 

ERROR MESSAGE 
DATA HEADER 

DATA 

DATA FORMAT 



SERRT8: 

; ERROR 

1 

EMI 

DH1 

DTI 

0 

;REG TIMEOUT ER 
,-ERRPC TSTNUM 
.-SERRPC TSTNUM 

BUSADR 

SBDADR 

EXPCT 

SGDDAT 

RCVD 

SBDDAT 


; ERROR 

2 

EM2 

DH2 

DT2 

0 

.-REG READ/WRITE 
,-ERRPC TSTNUM 
; SERRPC TSTNUM 

ER 

BUSADR 

S6DADR 

VAM 

VECVAL 

ADDR 

VECLOC 

EXPCT 

SGDDAT 

RCVD 

SBDDAT 

; ERROR 

3 

EM3 

DH2 

DT2 

0 

;IRR REG ER 
,-ERRPC TSTNUM 
.-SERRPC TSTNUM 

BUSADR 

S6DADR 

VAM 

VECVAL 

ADDR 

VECLOC 

EXPCT 

SGDDAT 

RCVD 

SBDDAT 

; ERROR 

4 

EM4 

DH2 

DT2 

0 

,-ACR REG ER 
,-ERRPC TSTNUM 
; SERRPC TSTNUM 

BUSADR 

S6DADR 

VAM 

VECVAL 

ADDR 

VECLOC 

EXPCT 

SGDDAT 

RCVD 

SBDDAT 

; ERROR 

5 

EM5 

DH2 

DT2 

0 

;IMR REG ERROR 
,-ERRPC TSTNUM 
; SERRPC TSTNUM 

BUSADR 

SBDADR 

VAM 

VECVAL 

ADDR 

VECLOC 

EXPCT 

SGDDAT 

RCVD 

SBDDAT 

; ERROR 

6 

EM6 

DH2 

DT2 

0 

;ISR REG ERROR 
,-ERRPC TSTNUM 
; SERRPC TSTNUM 

BUSADR 

SBDADR 

VAM 

VECVAL 

ADDR 

VECLOC 

EXPCT 

SGDDAT 

RCVD 

SBDDAT 

; ERROR 

7 

EMI 4 
DH1 

DTI 

0 

.-VECTOR ADDR MEM ER 
;ERRPC TSTNUM BUSADR 
; SERRPC TSTNUM S8DADR 

EXPCT 

SGDDAT 

RCVD 

S6DDAT 
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111 
112 

ill ffi 

115 002 

116 002350 

117 

118 

119 002352 

120 002354 

121 002356 

122 002360 

123 

124 

125 002362 

126 002364 

127 002366 

128 002370 

129 

130 

131 002372 
002374 
002376 

134 002400 

135 

136 

137 002402 

138 002404 

139 002406 

140 002410 

141 

142 

143 

144 

145 


13< 

132 


i V I 
162 
163 


016251 

016463 

016702 

000000 


016266 

016550 

016722 

000000 


016316 

016463 

016702 

000000 


016343 

016463 

016702 

000000 


016216 

016615 

016736 

000000 


154 

155 

156 

157 

158 002432 

159 002434 

160 002436 

161 002440 
002442 
002444 

164 002446 

165 002450 

166 002452 


000000 

000001 

000000 

000000 

000000 


hi 


000000 

000000 

000000 


.-ERROR 10 
EN10 
DH2 
DT2 
0 

.•ERROR 11 
EN11 
DH3 
DT3 
0 

.•ERROR 12 
EN12 
DH2 
DT2 
0 

.•ERROR 13 
EN13 
DH2 
DT2 
0 

; ERROR 14 
EN7 
DH4 
DT4 
0 


CHIP STAT ER 

ERRPC TSTNUN BUSADR VAN ADDR EXPCT 

SERRPC TSTNUN SBDADR VECVAL VECLOC SGDDAT 


ILLEGAL INTERRUPT RECEIVED 

ERRPC TSTNUN BUSADR VAN ADDR 

SERRPC TSTNUN S6DADR VECVAL VECLOC 


INTERRUPT TEST ERROR 

ERRPC TSTNUN BUSADR VAN ADDR EXPCT 

SERRPC TSTNUN SBDADR VECVAL VECLOC SGDDAT 


NULTIPLE INTERRUPTS RECEIVED 

NULTIPLE INTERRUPTS RECEIVED 

ERRPC TSTNUN BUSADR VAN ADDR EXPCT 

SERRPC TSTNUN SBDADR VECVAL VECLOC SGDDAT 


ILLEGAL VECTOR ADDR NEN ERROR 

ERRPC TSTNUN TESTPC BUSADR VAN ADDR 

SERRPC TSTNUN SGDADR SBDADR VECVAL VECLOC 




; BUS 

002412 

164160 

DRCSA: 

002414 

164162 

DRDBA: 

002416 

164164 

DRCSB: 

002420 

164166 

DRDBB: 

002422 

164170 

DRCSC: 

002424 

164172 

DRD8C: 

002426 

164174 

&RCSD: 

002430 

164176 

DRDBD: 


; BUS REGISTER ADDRESS POINTERS 


ABASE 
ABASE +2 
ABASE +4 
ABASE +6 
ABASE+10 
ABASE+12 
ABASE+14 
ABASE +16 


,-CONNON PR06RAN LOCATION(S) 

TSTNUN: 0 .-CONTAINS TEST NUNBER ON ERROR 

DNAP: 1 

INTFLG: .WORD 0 

XXDP : .WORD 0 

INRLOC : .WORD 0 

ISRLOC: .WORD 0 

IRRLOC: .WORD 0 

ACRLOC : .WORD 0 

VECLOC: .WORD 0 


RCVD 

S8DDAT 


PCVD 

S6DDAT 


RCVD 

SBDDAT 
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VECPAT : .WORD 0 
VECVAL: .WORD 0 
SWRSAV: .WORD 0 
GRPCNT: .WORD 0 
BDSAV: .WORD 0 
LVLCNT: .WORD 0 
BYCNT: .WORD 0 
BYNUN: .WORD 0 
LVLSAV: .WORl 0 


t 
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SEQ 0020 
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178 

179 002476 

(15 

(1) 

(1) 002476 012706 002100 

(1) 002502 005026 

(1) 002504 022706 002140 

<1> 002510 001374 

(1) 002512 012706 002100 

<1> 

(1) 002516 012737 014462 
(1) 002524 012737 000340 

(1) 002532 012737 014134 
(1) 002540 012737 000340 
(1) 002546 012737 015732 
(1) 002554 012737 000340 
(1) 002562 012737 015526 
(1) 002570 012737 000340 
(1) 002576 005037 002160 
(1) 002602 005037 002162 
(1) 002606 112737 000001 

(1) 002614 012737 0026H 

(1) 002622 012737 002o 22 

( 2 ) 

<2) 

(2) 002630 013746 000004 

(2) 002634 012737 002670 
(2) 002642 012737 177570 
(2) 002650 012737 177570 
(2) 002656 022777 177777 
(2) 002664 001012 
( 2 ) 

(2) 002666 000403 
(2) 002670 012716 002676 
(2) 002674 000002 

(2) 002676 012737 000176 

(2) 002704 012737 000174 

(2) 002712 012637 000004 

< 1 ) 

(2) 002716 005037 002176 

(2) 002722 132737 000200 

(2) 002730 001403 

(2) 002732 012737 002212 

(2) 002740 

180 002740 005037 002172 

181 002744 005037 002170 

182 002750 005037 002174 

183 002754 004737 017360 

184 002760 001420 

185 002762 042737 000040 

186 002770 042737 000040 

187 002776 042737 000040 

188 003004 023727 002244 

189 003012 001003 

190 003014 012737 1?4160 

191 003022 


MACYll 30GC1063) 10-AUG-81 

PROGRAM START 


I 2 

11:00 PAGE 1-10 


SEO 0021 


000020 

000022 

000030 

000032 

000034 

000036 

000024 

000026 


002115 

002106 

002110 


START: 

.S8TTL 

;; CLEAR 

MOV 

CLR 

CMP 

BNE 

MOV 

.-.'INITIALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
NCV 
MOV 
CLR 
CLR 
M0V8 
MOV 
MOV 


•S8TTL PROGRAM START 


.-.-LOOP BACK IF NO 

;; SETUP THE STACK POINTER 


INITIALIZE THE COMMON TAGS 
THE COMMON TAGS (SCMTAG) AREA 

#$CMTAG.R6 .-.‘FIRST LOCATION TO BE CLEARED 

(R6>* ;; CLEAR MEMORY LOCATION 

#SWR.R6 ; ;DONE? 

.-6 

#2100,SP 
FEW VECTORS 

#$SC0PE,8#I0TVEC ;;IOT VECTOR FOR SCOPE ROUTINE 
#340.8#I0TVEC+2 ;. -LEVEL 7 _ 

fSERftOR.MEMTVEC ; ; EMT VECTOR FOR ERROR ROUTINE 
#340.B#EMTVEC+2 ;; LEVEL 7 
#$TRAP , B#TRAPVE C .-.-TRAP VECTOR FOR TRAP CALLS 
#340,B#TRAPVEC+2; LEVEL 7 
«$MRDN.B#PWRVEC ; .-POWER FAILURE VECTOR 
#340 , BfPWRVE C +2 ; .-LEVEL 7 

iTIMES ;; INITIALIZE NUMBER OF ITERATIONS 

SESCAPE ;; CLEAR THE ESCAPE ON ERROR A SS 

#1.$ERMAX .-.-ALLOW ONE ERROR PER TEST 

#.,$LPADR ;; INITIALIZE THE LOOP ADDRESS FOK SCOPE 

nvi #..$LPERR : .-SETUP THE ERROR LOOP ADDRESS 

.-.-SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
-.EQUAL TO A **-1 M , SETUP FOR A SOFTWARE SWITCH REGISTER. 

;;SAVE ERROR VECTOR 

.-.-SET UP ERROR VECTOR 
.-.-SETUP FOR A HARDWARE SW1CH REGISTER 
.-.-AND A HARDWARE DISPLAY REGISTER 
.-.-TRY TO REFERENCE HARDWARE SWR 
; .-BRANCH IF NO TIMEOUT TRAP OCCURRED 
.-.-AND THE HARDWARE SWR IS NOT = -1 
;. -BRANCH IF NO TIMEOUT 
.-.-SET UP FOR TRAP RETURN 

.-.-POINT TO SOFTWARE SWR 

.-.-RESTORE ERROR VECTOR 

;; CLEAR PASS COUNT 
.-.-TEST USER SIZE UNDER APT 
;; YES. USE NON-APT SWITCH 
.-.-NO.USE APT SWITCH REGISTER 

.-CLEAR ERROR NUMBER 
.-CLEAR MESSAGE TYPE 
.-CLEAR TEST NUMBER 

; CHECK FOR FALCON (KXT11) ;;GPA 

; BR IF NOT KXT11 SYSTEM ;;GPA 

; FALCON. LOWER IOT... ;;GPA 

;...EMT... ;;GPA 

.-...AND TRAP TO LEVEL 6. ;;GPA 

; IS S8ASE VIRGIN ?? ;;GPA 

; BR IF NOT. „ ;;GPA 

; YES. USE ENGINEERING DEFAULT ;;GPA 
1000$: ;:GPA 




MOV 

B#ERRVEC.-(S P) 

000004 


MOV 

#64$,B#ERRVEC 

002140 


MOV 

fDSWR.SWR 

002142 


NOV 

fDDISP, DISPLAY 

177254 


CMP 

#-i.aswR 



BNE 

66$ 



BR 

65$ 


64$: 

MOV 

#65$. (SP) 



RTI 


0021 40 

65$: 

MOV 

#SWREG,SWR 

002142 


MOV 

#DISPREG. DISPLAY 


66$: 

NOV 

(SP) +.»#ERRVEC 



CLR 

$PASS 

002211 


BITB 

#APTSIZE.$ENVM 



BEQ 

67$ 

002140 


MOV 

#$SWREG.SWR 


67$: 





CLR 

$FATAL 



CLR 

$MS6TYP 



CLR 

$TESTN 



CALL 

FALCON 



BEQ 

1000$ 

000022 


BIC 

#40.B#22 

000032 


BIC 

#40.a#32 

000036 


BIC 

#40.i#36 

164160 


CMP 

$8ASE.#ABASE 



BNE 

1000$ 

002244 


MOV 

#174160,$BASE 


CVDRDB DRV 1 1 J DIAG TST PRT2 


CVDRDB.P1 1 10-AUG-81 

10:52 

192 




193 

003022 

005737 

000042 

194 

003026 

001410 

0000*2 

195 

196 

003030 

003036 

023737 

001410 

197 

003040 

012737 

177777 

198 

003046 

000404 


199 

003050 

123727 

002210 

200 

003056 

001003 


201 

003060 

112737 

000001 

202 




203 




204 

003066 

005227 

177777 

205 

003072 

001014 


206 

003074 

004537 

011354 

207 

003100 

005737 

002134 

208 

003104 

001403 

002440 

209 

003106 

005737 

210 

003112 

001404 


211 

003114 

104401 

016012 

212 

213 

214 

215 

003120 

104401 

016054 

003124 

005737 

002134 

216 

003130 

001001 


217 

003132 

104406 


218 

003134 

005037 

002202 

219 

003140 

013737 

002246 

220 

003146 

042737 

177760 

221 

003154 

013701 

002244 

222 

003160 

010137 

002412 

223 

003164 

032737 

000001 

224 

003172 

001002 


225 

003174 

000137 

010636 

226 

003200 

012700 

002412 

227 

003204 

010120 


228 

003206 

062701 

000002 

229 

003212 

022700 

002432 

230 

003216 

001372 


231 

003220 

004537 

011524 

232 

003224 

012706 

002100 

233 

003230 

013737 

002202 

234 

003236 

123727 

002210 

235 

003244 

001401 


236 

003246 

000005 


237 

003250 

106427 

000340 

238 





J 2 

NACY11 306(1063) 10-AUG-81 11:00 PA6E 1-11 

INITIALIZE THE CONMO N TAGS 


.CHECK OPERATING ENVIRONMENT 


000046 

002440 

000001 

002134 


IS: 

2S: 

;PRINT 

$S: 


4$: 


TST 

BEQ 

CAP 

BEQ 

NOV 

BR 

CNPB 

BNE 

HOVB 

TITLE 

INC 

BNE 

JSR 

TST 

BEQ 

TST 

BEQ 

TYPE 

TYPE 


Bf42 
IS 

a#42.a#46 

2S 

f-1 ,XXDP 

2S 

SENV.fi 

3S 

#1 .SAUT08 


ARE WE IN ACT/XXDP AUTO NODE? 

BRANCH IF NO 

IS IT ACT AUTO NODE? 

RRANfU IF VFC 

SET XXDP CHAIN NODE INDICATOR 

ARE WE IN APT AUTO NODE? 

BRANCH IF NO 

SET AUTO NODE INDICATOR 


IF 


002434 

002434 


002434 


002200 

000001 


:GET THE VALUE 
$S: TST 

BNE 
GTSWR 

START1 : CLR 
NOV 
BIC 
NOV 
NOV 
BIT 
BNE 
JNP 

NEXPAS: NOV 
NEXPA1 : NOV 
ADD 
CNP 
BNE 
JSR 
NOV 
NOV 
CNPB 
BEQ 
RESET 
NEXPA2: NTPS 


NOT IN ACT OR APT AUTO NODE 
f-1 .-FIRST TINE? 

5S .'SKIP TITLE IF NO 

R5.T0BUF .-STORE 0-20 2 INTO BUFFER AREA 

SAUTOB ;ARE WE IN AUTO NODE? 

4S .'BRANCH TO TITLE TYPEOUT IF NOT 

XXDP ;IS THE AUTO NODE UNDER XXDP? 

5S .'SKIP TITLE IF NOT 

.TITLED .-PRINT OUT THE TITLE 

.TLCABL .-PRINT DRV11J CABLE REQ'D 


IN THE SOFTWARE 
SAUTOB 
START1 

SUNIT 

SDEVN.DNAP 

f 1 777&0.DMAP 

SBASE.Rl 

R1.DRCSA 

fl.DMAP 

NEXPAS 

NXDEV1 

fDRCSA.RO 

RI.(RO)* 

f2,R1 

fDRDBD+2,R0 

NEXPA1 

R5.TRPCAT 

f2l00.SP 

SUNIT, SDEVCT 

SENV.fi 

NEXPA2 

fPR7 


SWITCH REGISTER 
;ARE WE IN AUTOMATIC MODE? 

■Miniru IF YFC 

•ASK FOR SWR INPUT FROM CONSOLE 
CLEAR UNIT NUMBER 
;UP TO 4 DRVIIJ'S 
; POSITION OF DRVIIJ'S 
;GET BASE ADDRESS 
;NAKE BUS REG. POINTER = BASE 
:IS FIRST DRV11-J SELECTED 
YES 

; NO .ADVANCE BASE DRV11J ADDRESS 
; SET UP REGISTER ADDRESS POINTERS 
;L0AD EN 

ALL DONE? 

SR IF NOT 

EXTEND TRAP CATCHER 204-1774 
ALWAYS RESET STACK 
LOAD APT COUNTER WITH UNIT f 
ARE WE IN APT MODE? 

BR IF YES.SKIP RESET 
INITIALIZE 


SEQ 0022 


CVDRD6 DRV11J DIAG TST 

PRT2 

CVDRDB. 

FI 1 10-AUG-81 

10:52 

240 




241 




(3) 




(3) 




(2) 

003254 

000004 


242 

003256 

013700 

002412 

243 

003262 

013701 

002416 

244 

003266 

013702 

002412 

245 

003272 

012737 

003344 

246 

003300 

012737 

000002 

247 

003306 

004537 

011014 

248 

003312 

012703 

012636 

249 

003316 

012737 

000050 

250 

003324 

004537 

011074 

251 

003330 

012737 

011644 

252 

003336 

012737 

000340 

253 

003344 

005037 

002436 

254 

003350 

012706 

002100 

255 

003354 

112710 

000340 

256 

003360 

112711 

000060 

257 

003364 

010037 

002122 

258 

0G3370 

112710 

000060 

259 

003374 

113710 

002442 

260 

003400 

112710 

000202 

261 

003404 

106427 

000000 

262 

./03410 

112712 

000241 

263 




264 




265 

003414 

112710 

000241 

266 

003420 

005737 

002436 

267 

0034t** 

001401 


268 

003426 

104011 


269 

003430 

005037 

002436 

270 

003434 

112710 

000120 

271 

003440 

106427 

000340 

272 

003444 

005737 

002436 

273 

003450 

001401 


274 

003452 

104011 


275 

003454 

005037 

002436 

276 

003460 

106427 

000000 

277 

003464 

152762 

000002 

278 

003472 

012737 

000001 

279 

003500 

013737 

002436 

2 80 

003506 

023737 

002124 

281 

003514 

001401 


282 

003516 

104012 


283 

003520 

106427 

000340 

284 

003524 

012737 

101710 

285 

003532 

010237 

002122 

286 

003536 

011237 

002126 

287 

003542 

042737 

000007 

288 

003550 

023737 

002124 

289 

003556 

001401 


290 

003560 

104002 


291 

003562 

010137 

002122 

292 

003566 

005037 

002126 


K 2 

HACY11 306(1063) 10- AUG-81 11:00 PAGE 

INITIALIZE THE COMMON TAGS 


2 



.-•TEST 

1 

TEST CHIP INTERRUPT , GROUP 1 .GROUP 2 


;;****< 

T§T1 : 

SCOPE 

MOV 

DRCSA.RO 

; START WITH GROUP 1 



MOV 

DRCS8.R1 




MOV 

DRCSA.R2 

.REGISTER IS COMMON FOR BOTH GROUPS 

002110 


MOV 

#111$,$LPERR 

.‘SET UP LOOP RETURN 

002462 


MOV 

#2.6RPCNT 

.•COUNTER FOR BOTH GROUPS 

120$: 

JSR 

R5.CLRCSR 

.‘CLEAR ALL CSRS 


MOV 

#8GCHP3.R3 

.‘EXPECTED GDDAT FOR ISR.IMR 

002442 


MOV 

#CSIMR,IMRLOC 

.STORE CLEAR SINGLE IMR CODE 


JSR 

R5.CLRIRR 

.‘CLEAR IRR REGS 

000300 


MOV 

#INTSR1 .300 
#340,30$ 

.'STORE VECTOR ROUTINE 

000302 


NOV 

.•STORE PSU 

111$: 

CLR 

INTFLG 

.‘CLEAR INT. FLAG 



MOV 

#2100, SP 

;INIT STACK IN CASE OF ILLEGAL INT. LOOP 



MOVB 

#PVMA, (RO) 

.PRESELECT VECTOR $EM ADDR 



MOVB 

#60. (R1) 

.‘WRITE VECTOR 300.BV0.LV0 



MOV 

R0.S8DADR 

.‘SAVE BUS ADDRESS 



MOVB 

#SIMR, (RO) 

.SET ALL IMR BITS 



MOVB 

IMRLOC, (RO) 

.CLEAR MASK ON SINGLE BIT 



MOVB 

#202. (RO) 

.-LMD04 - COMMON VECTOR 



NT PS 

#PRO 

.‘USED IN TEST OF GROUP 2 



MOVB 

#241, (R2) 

.ARM GROUP 1 TO PASS 

; ENABLE TO GROUP 2. 



MOVB 

#241 * (RC) 

.-LMD57 - ARM THE CHIP 



TST 

INTFLG 

.‘CHECK FOR INTERRUPTS 



BEQ 

1$ 




ERROR 

11 

.‘ERROR. ILLEGA' INTERRUPT 


1$: 

CLR 

INTFLG 

.‘RESET INT. CUTTER 



MOVB 

#SIRR.(RO) 

.‘SET ALL IRR BITS 



HTPS 

#PR7 




TST 

BEQ 

ERROR 

INTFLG 

2$ 

11 

.•CHECK FOR NO INTERRUPTS 



.ILLEGAL INTERRUPTS 


2$: 

CLR 

INTFLG 

.‘CLEAR INT. COUNTER 


HTPS 

#PRO 


000001 


BIS6 

#8IT1 ,1 (R2) 

.‘SET I/E, EXPECT IN r ERRUPT 

002124 


MOV 

#1 £ $GDDAT 

.‘EXPECT ONE INTERRUPT 

002126 


MOV 

INTFLG, SBDDAT 

; SHOULD HAVE ONE INTERRUPT 

002126 


CMP 

BEQ 

ERROR 

SGDDAT.SBDDAT 

3$ 

12 

.•INTERRUPT TEST ERROR 


3$: 

HTPS 

#PR7 

.‘RDY.DIR.I/E, CHIP - 31X 

002124 

MOV 

#101710,$GDDAT 


MOV 

R2.S8DADR 

;CSRA ADDRESS 



MOV 

(R$). SBDDAT 

.CLEAR UNDEFINED BITS 

002126 


B1C 

#7, SBDDAT 

002126 


CMP 

SGDDAT.SBDDAT 




BEQ 

4$ 




ERROR 

2 

;CSRA REG ERROR 


4$: 

NOV 

R1.S8DADR 

.READY TO READ 1SR REG. 



CLR 

SBDDAT 

.SET UP FOR BYTE READS 


CVD&DB DRV1U DIAG TST PRT2 
CVDRD9.P11 10-AUG-81 10:52 


L 2 

MAQ11 306(1063) 10-AUG-81 11:00 PA6E 2-1 

T1 TEST CHIP INTERRUPT # GROUP 1. GROUP 2 


293 003572 

294 003576 

295 003602 

296 003606 

297 003612 

298 003620 

299 003622 

300 003624 

301 003632 

302 003636 

303 003642 

304 003650 

305 003652 

306 003654 

307 003662 

308 003666 

309 003672 

310 003700 

31 1 003702 

312 003704 

313 003710 

314 003714 

31 5 003720 

316 003726 

317 003730 

318 003732 

319 003736 

320 003742 

321 003746 

322 003752 

323 C03760 

324 003762 

325 003764 

326 003772 

327 003776 

328 004002 

329 004010 

330 004016 

331 004020 

332 004022 

333 004030 

334 004034 

335 004040 

336 004046 

337 004054 

338 004056 

339 004060 

340 004062 

341 004066 

342 004070 

343 004074 

344 004100 

345 004104 

346 004106 

347 004112 

348 


005037 

111337 

112710 

111137 

023737 

001401 

1040Q6 

116337 

112710 

111137 

023737 

001401 

104005 

116337 

112710 

111137 

023737 

001401 

104003 

005037 

112710 

111137 

023737 

001401 

104004 

005037 

112710 

112710 

111137 

023737 

001401 

104006 

012737 

010237 

011237 

042737 

023737 

001401 

104002 

012737 

042712 

011237 

042737 

023737 

001401 

104002 

005723 

020327 

001404 

005237 

000137 

005337 

001406 

013700 

013701 


002124 
002124 
000240 
0021 26 
002124 


000001 

000244 

002126 

002124 


000001 

000250 

002126 

002124 


002124 

000254 

002126 

002124 


002124 

000140 

000240 

002126 

002124 


002126 
002124 5$: 
002126 
002124 6$: 
002126 

7$: 

002126 

10 $: 

002126 


101710 002124 11$: 

002122 
002126 

000007 002126 
002124 002126 


100710 002124 12$: 
001000 
002126 

000007 002126 
002124 002126 


012656 

002442 

003344 

002462 

002422 

002426 


13$: 


14$: 


CLR $GDDAT 

MOVB <R3).$GDDAT 

MOVB #MISR.(RO) 

MOVB (R1),$BDDAT 

CMP %GDDAT.$8DDAT 

BEQ 5$ 

ERROR 6 

MOVB 1 (R3) ,$GDDAT 

MOVB MIMR.(RO) 

MOVB (R1) ,$BDDAT 

CM P $GDDAT,$BDDAT 

BEQ 6$ 

pppOfi s 

MOVB 1 (R3),$GDDAT 

MOVB «MIRR.(RO) 

MOVB (R1) ,$BDDA T 

CMP $GDDAT.$BDDAT 

BEQ 7$ 

ERROR 3 

CLR $GDDAT 

MOVB AMACR.(RO) 

MOVB <R1).$BDDAT 

CMP $GDDAT,$BDDAT 

BEQ 10$ 

ERROR 4 

CLR $GDDAT 

MOVB #CHPISR,(RO> 

MOVB fMISR, (RO) 

MOVB <R1),$BDDAT 

CMP $GDDAT,$BDDAT 

BEQ 11$ 

ERROR 6 

MOV #101710,$GDDAT 

NOV R2.$BDADR 

MOV <R2) ,$BDDAT 

BIC #7,$8DDAT 

CMP $6DDAT,$BDDAT 

BEQ 12$ 

ERROR 2 

MOV #100710,$GDDAT 

BIC «8IT9 i (R2) 

MOV (R2) ,$BDDAT 

BIC #7,$8DDAT 

CMP $GDDAT,$BDDAT 

BEQ 13$ 

ERROR 2 

TST <R3)+ 

CMP R3.#EDCHP3 

BEQ 14$ 

INC IMRLOC 

JMP 111$ 

DEC GRPCNT 

BEQ TST2 

MOV DRCSC,RO 

MOV DRCSD.R1 


SET UP FOR BYTE EXPECTED 

EXPECTED DATA 

LOAD MODE TO READ I SR 


;ISR ERROR 
.♦STORE EXPECTED 
.♦LOAD MODE FOR IMR 


;IMR ERROR 

.♦EXPECTED IRR 

.♦LOAD MODE BITS FOR IRR 


;IRR ERROR 


;ACR ERROR 

; CLEAR HIGHEST PRIOR ISR 
.♦LOAD MODE TO READ ISR 


;ISR REG ERROR 
;RDY.DIR.I/E, CHIP - 31X 
;CSRA ADDRESS 

.♦CLEAR UNDEFINED BITS 


;CSRA REG ERROR 
,‘RDY.DIR. CHIP - 31X 
.♦CLEAR I/E 
.♦READ CSRA 

.'CLEAR UNDEFINED BITS 


CSRA REG ERROR 

GET NEXT ISR.IMR EXPECTED RESULTS 
CHECK FOR END 

INCREMENT MASK BIT TO CLEAR 
TEST NEXT ISR BIT 
TESTED BOTH GROUPS? 

;8R IF DONE 
SETUP FOR GROUP 2 
CSRC = CONTROL GROUP 2 
CSRD = DATA GROUP 2 


SEQ 0024 



CVDRDB DRV11J DIAG TST PRT2_ 
CVDRDB. P11 1 O-AUG-81 10:52 


35C 

351 

352 
(3) 
(3) 


ft 2 
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T1 TEST CHIP INTERRUPT , GROUP 1, GROUP 2 


EQ 0025 


391 

392 


004116 

000137 

003306 



JMP 





;;****' 

.-•TEST 

2 

004122 

000004 



;;****< 

TST2: 

SCOPE 

004124 

0 1 3700 

002412 



MOV 

004130 

013701 

002416 



MOV 

004134 

004140 

013702 

012737 

002412 

004212 

002110 


ftOV 

NOV 

004146 

012737 

000002 

002462 

120$: 

NOV 

004154 

004537 

011014 


JSR 

004160 

012703 

012636 



MOV 

004164 

012737 

000050 

002442 


MOV 

004172 

004537 

011074 



JSR 

004176 

012737 

011644 

000300 


MCV 

004204 

012737 

000340 

000302 

111$: 

MOV 

004212 

005037 

002436 


CLR 

004216 

012706 

002100 



MOV 

004222 

042712 

001000 



BIC 

004226 

112712 

000242 



MOVB 

004232 

112710 

000242 



Move 

004236 

112710 

000300 



MOVB 

004242 

111311 




MOVB 

004244 

112710 

000340 



MOVB 

004250 

112711 

000060 



MOVB 

004254 

010037 

002122 



MOV 

004260 

112710 

000060 



MOVB 

004264 

113710 

002442 



MOVB 

004270 

112710 

000202 



MOVB 

004274 

106427 

000000 



MTPS 

004300 

152762 

000002 

000001 


bisb 

004306 

005737 

002436 



TST 

004312 

001 '01 




BEQ 

004314 

104011 




ERROR 

004316 

005037 

002436 


1$: 

CLR 

004322 

112710 

000120 



MOVB 

004326 

106427 

000340 



MTPS 

004332 

005737 

002436 



TST 

004336 

001401 




BEO 

004340 

104011 




ERROR 

004342 

005037 

002436 


2$: 

CLR 

004346 

106427 

000000 



MTPS 

004352 

112712 

000241 



MOVB 

004356 

112710 

000241 



MOVB 

004362 

012737 

000001 

002124 


MOV 

004370 

013737 

002436 

002126 


MOV 

004376 

023737 

002124 

002126 


CMP 

004404 

001401 




BEQ 

004406 

104012 



3$: 

ERROR 

004410 

106427 

000340 


MTPS 

004414 

010137 

002122 


4$: 

MOV 

004420 

005037 

002126 



CLR 


120 $ 


;D0 GROUP 2 


TEST ACR/ISR INTERRUPT .GROUP 1. GROUP 2 


DRCSA.RO 

DRCS6.R1 

DRCSA.R2 

#1 1 1S.SLPERR 

#2,6RPCNT 

R5.CLRCSR 

#8GCHP3,R3 

#CSIMR,IMRLOC 

R5.CLRIRR 

#INTSR1 .300 

#340.302 

INTFLG 

#2100.SP 

#8IT9.(R2) 

#242. (R2> 

#242. (RO) 

#PACR.(RO) 

(R3),(R1) 

#PVMA, <R0) 

#60. (R1) 

RO.SBDADR 

#SIMR.(RO) 

IftRLOC.(RO) 

#202. (RO) 

#PRO 

#8IT1.1(R2) 

INTFLG 

1 $ 

11 

INTFLG 

#SIRR.(RO) 

#PR7 

INTFLG 

2 $ 

11 

INTFLG 
#PR 0 

#241. (R2) 


#241. (RO) 

#1 ,$GDDAT 
INfFLG.$BDDAT 
SGDDAT.SBDDAT 
3$ 

12 , 

#PR7 

R1.S6DADR 

S8DDAT 


SET UP LOOP RETURN 
DO TWO GROUPS 
CLEAR ALL CSRS 
EXPECTED GDDAT FOR ISR 
STORE CLEAR SINGLE IftR CODE 
CLEAR IRR REGS 
STORE VECTOR ROUTINE 
STORE PSU 
CLEAR INT. FLAG 

INIT STACK IN CASE OF ILLEGAL INT. LOOP 

CLEAR INTERRUPT ENABLE 

CLEAR MASTER MASK GP1 

CLEAR MASTER MASK GP1.GP2 

PRESELECT ACR FOR WRITING 

NEXT BIT INTO ACR 

PRESELECT VECTOR MEM ADDR 

WRITE VECTOR 30O.BY0.LV0 

STORE BUS ADDRESS 

SET ALL I MR BITS 

CLEAR MASK ON SINGLE BIT 

LMD04 - COMMON VECTOR 

SET I/E. NO INTERRUPT 
CHECK FOR INTERRUPTS 

ERROR. ILLEGAL INTERRUPT 
RESET INT. COUNTER 
SET ALL IRR BITS 

CHECK FOR NO INTERRUPTS 

ILLEGAL INTERRUPTS 
CLEAR INT. COUNTFR 

USED IN TEST OF GROUP 2 
ARM GROUP 1 CHIP TO PASS 
ENABLE TO GROUP 2 CHIP. 

ARM THE CHIP 
EXPECT ONE INTERRUPT 
SHOULD HAVE ONE INTERRUPT 


.'INTERRUPT TEST ERROR 

.READY TO READ ISR REG. 
i SET UP FOR BYTE READS 



rvDRDB OR Vi 1 J DIAG 1ST PRT2 
CVDRDB.P11 10-AUG-81 10:52 


N 2 

MA0 1 1 306(1063) 10-AUG-81 11:00 PA6E 2-3 

T2 TEST ACR/ISR INTERRUPT .GROUP 1. GROUP 2 


402 004424 

403 004430 

404 004434 

405 004440 

406 004446 

407 004450 

408 004452 

409 004460 

410 004464 

411 004470 

412 004476 

413 O04500 

414 004502 

415 004510 

416 004514 

417 004520 

418 004526 

419 004530 

420 004532 
004536 
004542 
004546 

424 004554 

425 004556 

426 004560 

427 004562 

428 004566 

429 004570 

430 004574 

431 004600 

432 004604 

433 004606 

434 004612 

435 

436 004616 


421 

d 


005037 

112710 

111137 

023737 

001401 

im 

1 12710 
111137 
023737 
001401 
104005 
116337 
112710 
111137 
023737 
001401 
104003 
111337 
112710 
111137 
023737 
D1401 
104004 
005723 
020327 
001404 
005237 
000137 
005337 
001406 
013700 
013701 


002124 

000240 

002126 

002124 


000001 

000244 

002126 

002124 


000001 

000250 

002126 

002124 


002124 

000254 

002126 

002124 


012656 

002442 

004212 

002462 

002422 

002426 


000137 004154 



002126 
002124 5$: 

002126 
002124 6$: 
002126 

7$: 

002126 

10 $: 

11 $: 


CLR $GDDAT 

M0V8 #AISR x (RO> 

wove <R1),$BDDAT 

CAP $GDDAT,$8DDAT 

BEQ 5$ 

ERROR 6 

AOVB 1 (R3) ,$GDDAT 

M0V8 PNINR, (RO) 

AOVB <R1).$8DDAT 

CAP SGDDAT.SBDDAT 

BEQ 6$ 

FUROR 5 

AOVB 1(R3),$GDDAT 

AOVB #NIRR, (RO) 

AOVB (RD.SBDDAT 

CAP $GDDAT,$8DDAT 

BEQ 7$ 

FRROR 3 

AOVB (R3) ,$GDDAT 

AOVB #AACR.(RO) 

AOVB (R1),$8DDAT 

CAP SGDDAT.SBDDAT 

BEQ 10$ 

ERROR 4 

TST (R3>* 

CAP R3,#EDCHP3 

BEQ 11$ 

INC IARLOC 

JAP 111$ 

DEC 6RPCNT 

BEQ TST3 

MOV DRCSC.RO 

MOV DRCSD.R1 

JAP 120$ 


;SET UP FOR BYTE EXPECTED 
.‘LOAD MODE TO READ I SR 

;ACR SHOULD CLEAR I SR 

;ISR ERROR 
.•STORE EXPECTED 
.‘LOAD MODE FOR I MR 


;1MR ERROR 

.•EXPECTED IRR 

.‘LOAD MODE BITS FOR IRR 


;IRR ERROR 
.•EXPECTED ACR 


ACR ERROR 

GET NEXT ISR.IMR.IRR EXPECTED RESULTS 

CHECK FOR END 

DONE WITH GROUP TEST 

INCREMENT MASK BIT TO CLEAR 

TEST NEXT ISR BIT 

TESTED BOTH GROUPS? 

;BR IF DONE 
SETUP FOR GROUP 2 
CSRC = CONTROL GROUP 2 
CSRD = DATA GROUP 2 
DO GROUP 2 


• • ************************* ******************** ****************** 
•'•TEST 3 TEST VECTOR ADDR PEA, LEV 0-7.BY0-3, (204-1774). GRPS 1.2 


m 

002456 



Ht3: 

120 $: 

121 $: 


002110 


SCOPE 

MOV DRCSA.RO 

MOV DRCS6.R1 

MOV DRCSA.R2 

NOV P2.GRPCNT 

MOV f 1 .BYNUM 

JSR R5.CLRCSR 

MOV fPVAA.VECVAL 

MOV #SGCHP3.R4 

MOV It. .LVLCNT 

MOV fCSIAR.IARLOC 

MOV fSSIRR.IRRLOC 

MOV fCSISR.ISRLOC 

JSR R5.TRPCAT 

MOV #ll2$,$LPERR 


DO TUO GROUPS 
INIT FOR BYTE COUNT 0 
CLEAR ALL CSRS 

START VECTOR LEVEL O.BYTE COUNT 0 
EXPECTED ISR.IAR PATTERN 
COUNTER FOR 6-7 LEVELS 
STORE SINGLE INR COOE 
STORE SINGLE IRR COOE 
STORE CLEAR SINGLE ISR CODE 
RESTORE TRAP CATCHER 
STORE SCOPE LOOP 


EQ 0026 


IVDROB DRV11J OlAG TST PRT2 
CVDRDB.P1 1 10-AUG-81 10:52 


B 3 

MAC v 1 1 30G < 1 063) 10-AUG-81 11:00 PAGE 

T3 TEST VECTOR ADDR HER. LEV 


455 004734 

456 004742 

457 004746 

458 004752 

459 004756 

460 004762 

461 

462 

463 004766 

464 004772 

465 004776 

466 005002 

467 005006 

468 005012 

469 005020 

470 005024 

471 005032 

472 005036 

473 005042 

474 005046 

475 005050 

476 005054 

477 005060 

478 005064 

479 005070 

480 005074 

481 005100 

482 005102 

483 005104 

484 005110 

485 005114 

486 005120 

487 005124 

488 005126 

489 005130 

490 005134 

491 005140 

492 005146 

493 

494 005154 

495 

496 005162 

497 005170 

498 005172 

499 005174 

500 005200 

501 005204 

50 2 005210 

503 005214 

504 005220 

505 005224 

506 005230 

507 005236 

508 005240 

509 005242 

510 005250 


012737 

106427 

012706 

042712 

004537 

112712 


013703 
010337 
006037 
006037 
012713 
012763 
005037 
013737 
113710 
113711 
005337 
001373 
010037 
112710 
113710 
106427 
112710 
005737 
001401 
104011 
005037 
113710 
106427 
005737 
001401 
104011 
00503 7 
106427 
152762 
013737 


023737 

001401 

104012 


000204 

000340 

002100 

001000 

011074 

000241 


002452 

002454 

002454 

002454 

011700 

000340 

002436 

002472 

002456 

002454 

002470 

002122 

000060 

002442 

000000 

000241 

002436 


002436 

002446 

000340 

002436 


002436 

000000 

000002 

002472 


002452 111$: 
112 $: 


000002 

002470 


000001 

002124 


013737 002436 002126 


106427 

010137 

005037 

005037 

111437 

112710 

111137 

023737 

001401 

104006 

116437 

112710 


002124 002126 


000340 

002122 

002126 

002124 

002124 

000240 

002126 

002124 


000001 

000244 


002126 


002124 5$: 


#204,VECL0C 

#340 

#2100,SP 
#BIT9,(R2) 
R5.CLRIRR 
#241, (R2) 


NOV VECL0C.R3 

NOV R3, VECPAT 

ROR VECPAT 

ROR VECPAT 

MOV #INT8Y4,(R3> 

MOV #340,2(R3) 

CLR INTFLG 

MOV BYNUM, BYCNT 

MOVB VECVAL, (RO) 

HOVB VECPAT, <R1) 

DEC BYCNT 

BNE 113$ 

MOV R0,$8DADR 

MOVB #SJNR, <R0) 

MOVB IMRL0C,(R0) 

MTPS #PRO 

MOVB #241, (RO) 

TST INTFLG 

BEQ 1$ 

ERROR 1 1 

CLR INTFLG 

MOVB IRRLOC, (RO) 

MTPS #PR7 

TST INTFLG 

BEQ 2$ 

ERROR 1 1 

CLR INTFLG 

MTPS #PR 0 

BISS #81 T1 ,1 (R2) 

MOV BYNUM, $GDDAT 

MOV INTFLG,$6DDAT 

CMP $GDDAT,$BDDAT 

BEQ 3$ 

ERROR 12 

MTPS #PR7 

MOV R1,$60A0R 

CLR S6DDAT 

CLR SGDDAT 

MOVB (R4),$GDDAT 

MOVB #HISR. (RO) 

MOVB (R1),$8DDAT 

CMP SGDDAT, S8DDAT 

BEQ 5$ 

ERROR 6 

MOVB 1(R4), SGDDAT 

MOVB #MIMR, (RO) 


2-4 

0-7.BY0-3, (204-1 774). GRPS 1,2 
START AT VECTOR 204 


SEQ 0027 


INI T STACK IN CASE OF ILLEGAL INT. LOOP 

CLEAR INTERRUPT ENABLE 

CLEAR IRR REGS 

USED IN TEST OF GROUP 2 

ARM GROUP 1 CHIP TO PASS 

ENABLE TO GR0UP2 

GET VECTOR 

ROTATE VECTOR ADDR TWO RIGHT 
TO WRITE VECTOR MEM ADDR. 

STORE VECTOR ROUTINE 
STORE PSW 
CLEAR INT. FLAG 
BYTE COUNTS OF 0-3 
PRESELECT VECTOR HEM ADDR 
U&ITF VFfTfU) 

DONE WITH BYTE COUNT VALUE 

NO, LOAD VECTOR FOR NEXT BYTE COUNT 

SAVE BUS ADDRESS 

SET ALL IMR BITS 

CLEAR MASK ON SINGLE SIT 

LMD57 - ARM THE CHIP 
CHECK FOR INTERRUPTS 

ERROR, ILLEGAL INTERRUPT 
RESET INT. COUNTER 
SET SINGLE IRR BIT 

CHECK FOR NO INTERRUPTS 

ILLEGAL INTERRUPTS 
CLEAR INT. COUNTER 

SET I/E. EXPECT INTERRUPT 
EXPECT 1 TO 4 INTERRUPTS 
BASED ON BYTE COUNT VALUE 
SHOULD HAVE 1 TO 4 INTERRUPTS 
BASED ON BYTE COUNT VALUE 


; INTERRUPT TEST ERROR 


READY TO READ ISR REG. 
SET UP FOR BYTE READS 
SET UP FOR BYTE EXPECTED 
EXPECTED DATA 
LOAD MODE TO READ ISP 


ISR ERROR 
STORE EXPECTED 
LOAD MODE FOR IMR 



MAC Y 1 1 306(1063) 10-< 

T3 TEST 


CVDRDB DRV1U DIAG TST PRT2 
CVDRDB.P11 10-AUG-81 10:52 


511 

005254 

111137 

002126 



NOVB 

51? 

005260 

023737 

002124 

002126 


CHP 

513 

005266 

001401 




BEQ 

514 

005270 

104005 



6$: 

ERROR 

515 

005272 

005037 

002124 


CLR 

516 

005276 

112710 

000250 



NOVB 

517 

005302 

111137 

002126 



NOVB 

518 

005306 

023737 

002124 

002126 


CHP 

519 

005314 

001401 




BEQ 

520 

005316 

104003 



7$: 

ERROR 

521 

005320 

005037 

002124 


CLR 

5?? 

005324 

112710 

000254 



NOVB 

523 

005330 

111137 

002126 



NOVB 

524 

005334 

023737 

002124 

002126 


CHP 

525 

005342 

001401 




BEQ 

526 

005344 

104004 




ERROR 

527 

005346 

005037 

002124 


10$: 

CLR 

528 

005352 

113710 

002444 



NOVB 

529 

005356 

112710 

000240 



NOVB 

530 

005362 

111137 

002126 



NOVB 

531 

005366 

023737 

002124 

002126 


CHP 

532 

005374 

001401 




BEQ 

533 

005376 

104006 




ERROR 

534 

005400 

004537 

011432 


11$: 

JSR 

535 

005404 

005737 

017374 



TST 

536 

005410 

001404 




BEQ 

537 

005412 

022737 

000400 

002452 


CHP 

538 

005420 

000403 




403 

539 

005422 




100$: 


540 

005422 

022737 

002000 

002452 


CHP 

541 

005430 

001402 




BEQ 

54? 

005432 

000137 

004742 



JNP 

543 

005436 

005724 



12$: 

TST 

544 

005440 

005237 

002442 



INC 

545 

005444 

005237 

002446 



INC 

546 

005450 

005237 

002444 



INC 

547 

005454 

005237 

002456 



INC 

548 

005460 

005337 

002466 



DEC 

549 

005464 

001402 




BEQ 

550 

005466 

000137 

004734 



JNP 

551 

005472 

005237 

002472 


13$: 

INC 

55? 

005476 

104407 




CKSWR 

553 

005500 

022737 

000400 

002456 


CHP 

554 

555 

005506 

005510 

001402 

000137 

004666 



BEQ 

JNP 

556 







557 

005514 

005337 

002462 


14$: 

DEC 

558 

005520 

001406 




BEQ 

559 

005522 

013700 

002422 



NOV 

560 

005526 

013701 

002426 



NOV 

561 

005532 

000137 

004646 



JNP 

562 







563 







564 







565 





;;****' 


(3* 





.’•TEST 

4 


bEQ 0028 


C 3 

S— 81 11:00 PAGE 2-5 

[TOR ADDR HER. LEV 0-7.BY0-3. (204-1 774) ,GRPS 1,2 

(R1).$BDDAT 
SGDDAT, SBDDAT 
6 $ 

5 ; I MR ERROR 

$GDDAT 

#HIRR.(RO) .-LOAD NODE BITS FOR IRR 

(RD.SBDDAT 

S6DDAT.S6DDAT 

7$ 

3 ;IRR ERROR 
SGDDAT 

fNACR.(RO) 

(RD.SBDDAT 
SGDDAT. SBDDAT 
10S 

4 ;ACR ERROR 
SGDDAT 

ISRLOC.(RO) .’CLEAR SINGLE I SR BIT 

#HISR.(RO> .’LOAD NODE TO READ ISR 

(RD.SBDDAT 

SGDDAT, SBDDAT 

IIS 

A .f CD RFC FRROR 

R5.RESTRP -RESTORE VECTOR JUST TESTED 

KXTFLAG ; KXT11 ?? 

100S ; BR IF NOT 

#400,VECL0C ; YES. FINISHED 204-374 ?? 


;ACR ERROR 

.’CLEAR SINGLE ISR BIT 
.•LOAD NODE TO READ ISR 


#2000,VECL0C 

12S 

112S 

(R4) + 

INRLOC 

IRRLOC 

ISRLOC 

VECVAL 

LVLCNT 

13S 

111S 

BYNUN 

#400, VECVAL 

14S 

121S 

GRPCNT 

TST4 

DRCSC.RO 

DRCSD.R1 

120S 


ISR REG ERROR 

RESTORE VECTOR JUST TESTED 
KXT11 ?? 

IF NOT 

YES, FINISHED 204-374 ?? 
SKIP NEXT TO FIND OUT 


FINISHED? 

FINISHED VECTORS 204-1774? 

TEST NEXT VECTOR ADDR 

INDEX EXPECTED ISR AND INR PATTERN 

STORE CLEAR FOR NEXT HASK BIT 

STORE SET FOR NEXT IRR BIT 

STORE CLEAR FOR NEXT ISR BIT 

SETUP TO TEST NEXT VECTOR LEVEL 

FINISHED LEVELS 0-7 

YES, CHECK BYTE COUNT END 

NO, DO NEXT LEVEL 

INDEX BYTE COUNT 

LOOK FOR SWITCH CHANGE REQUEST 

FINISHED ALL BYTE COUNTS 0-3 

FINISHED TWO GROUPS? 

DO NEXT BYTE COUNT FOR 
LEVELS 0-7 
FINISHED TWO GROUPS? 

;8R IF DONE 

CSRC > CONTROL GROUP 2 
CSRD = DATA GROUP 2 
DO GROUP 2 FOR BYTE COUNTS 0-3 
AND LEVELS 0-7 FOR EACH BYTE COUNT. 


TEST VECTOR ADDR HEH.LVLS 0-7.BY0-3,(0-200)GRPS 1,2 



CVDRDB DRV11J 01AG T ST PRT2 
CVDRD6.P1 1 10-AUG-81 10:52 


(5) 

(2) 005536 

566 005540 

567 005544 

568 005550 

569 005554 

570 005562 

571 005570 

572 005574 

573 005602 

574 005606 

575 005614 

576 005622 

577 005630 

578 005636 

579 005642 

580 005646 

581 005652 

582 005656 

583 005662 

584 

585 

586 005666 

587 005672 

588 005676 

589 005702 

590 005706 

591 005712 

592 005716 

593 005724 

594 005730 

595 

596 005736 

597 005742 

598 005746 

599 005752 

600 005754 

601 005760 

602 005764 

603 005770 

604 005774 

605 006000 

606 006004 

607 006006 

608 006012 

609 006014 

610 006020 

61 1 006024 

612 006030 

613 006034 

614 006040 

615 006042 

616 006046 

617 006050 

618 006054 

619 006060 


D 3 

HACY11 306(1063) 10-AU6-81 11:00 PAGE 2-6, A , 

T4 TEST VECTOR ADDR MEN.LVLS 0-7 ,8Y0-3 , ( 0-200) GRPS 1,2 


000004 



fST4: 

SCOPE 

013700 

002412 



NOV 

013701 

002416 



MOV 

013702 

012737 

002412 

000002 

002462 

120$: 

MOV 

NOV 

012737 

000001 

002472 

MOV 

004537 

011014 



JSR 

012737 

000340 

002456 

121$: 

MOV 

012704 

012636 


MOV 

012737 

000010 

002466 


MOV 

012737 

000050 

002442 


MOV 

012737 

000130 

002446 


MOV 

012737 

005642 

002110 


MOV 

005037 

002452 


111$: 

CLR 

106427 

000340 


112$: 

HTPS 

012706 

002100 



MOV 

042712 

001000 



B1C 

004537 

011074 



JSR 

112712 

000241 



HOVB 

013703 

002452 



MOV 

004537 

012024 



JSR 

010337 

002454 



NOV 

006037 

002454 



ROR 

006037 

002454 



ROR 

012713 

012124 



MOV 

012763 

000340 

000002 


MOV 

005037 

002436 



CLR 

013737 

002472 

002470 


MOV 

113710 

002456 



MOVB 

113711 

002454 


113$: 

HOVB 

005337 

002470 



DEC 

001373 




BNE 

010037 

002122 



MOV 

112710 

000060 



MOVB 

117710 

002442 



MOVB 

106427 

000000 



HTPS 

112710 

000241 



HOVB 

005737 

002436 



TST 

001405 




BEO 

004537 

011374 



JSR 

104011 




ERROR 

004537 

012024 



JSR 

005037 

002436 


1$: 

CLR 

113710 

002446 



MOVB 

106427 

0003*: 



HTPS 

005737 

002436 



TST 

001405 




BEO 

004537 

104011 

011374 



JSR 

ERROR 

004537 

012024 



JSR 

005037 

002436 


2$: 

CLR 

106427 

000000 



HTPS 


DRCSA,RO 

DRCS8.R1 

DRCSA,R2 

#2,6RPCNT 

#1 .BYNUM 

R5.CLRCSR 

#PVNA,VECVAL 

#86CHP3,R4 

#8. .LVLCNT 

#CSIMR,INRLOC 

#SSIRR.IRRLOC 

#112$.iLPERR 

VECLOC 

#340 

#2100,SP 

#8IT9,(R2) 

R5.CLRIRR 

#241, (R2) 


VECL0C.R3 
R5.CAT200 
R3.VECPAT 
VECPAT 
VECPAT 
#1NTSR3, (R3) 
#340, 2 (R3) 
INTFLG 
BYNUM, BYCNT 

VECVAL.(RO) 
VECPAT, (R1) 
BYCNT 
113$ 

R0,$8DADR 

#SIMR,(RO) 

IMRLOC.(RO) 

mo 

#241, (RO) 
INTFLG 

1 $ 

R5.FRMBUF 

11 

R5.CAT200 

INTFLG 

IRRLOC.(RO) 

#PR7 

JNTFLG 

R5.FRMBUF 

11 

R5.CAT200 
INTFLG 
#PR 0 


DO TUO GROUPS 

INIT FOR FIRST BYTE COUNT 

CLEAR ALL CSRS 

START VECTOR LEVEL 0,BYTE COUNT 0 

I SR, IMR PATTERN 

START LEVEL COUNT 0-7 

STORE CLEAR SINGLE IMR BIT CODE 

STORE SET SINGLE IRR BIT CODE 

LOOP RETURN 

START AT VECTOR 0 

INIT STACK IN CASE OF ILLEGAL INT. 

CLEAR INTERRUPT ENABLE 

CLEAR IRR REGS 

USED IN TEST OF GROUP 2 

ARM GROUP 1 CHIP TO PASS 

ENABLE TO GROUP 2. 

GET VECTOR 

STORE TRAP CATCHER FOR 0-200 

ROTATE VECTOR ADDR TUO RIGHT 
TO URITE VECTOR MEM ADDR. 

STORE VECTOR ROUTINE 
STORE PSU 
CLEAR INT. FLAG 
BYTE COUNT OF 0 TO 3 
FOR 1 TO 4 VECTORS. 

PRESELECT VECTOR MEM ADDR 

URITE VECTOR 

DO 1 TO 4 VECTORS 

URITE VECTORS BASED ON BYTE COUNT 

SAVE BUS ADDRESS 

SET ALL IMR BITS 

CLEAR MASK ON SINGLE BIT 

LMD57 - ARM THE CHIP 
CHECK FOR INTERRUPTS 

RESTORE 0-202 
ERROR, ILLEGAL INTERRUPT 
RESTORE TRAP CATCHER 
RESET INT. COUNTER 
SET SINGLE IRR BIT 

CHECK FOR NO INTERRUPTS 

RESTORE 0-202 
ILLEGAL INTERRUPTS 
RESTORE TRAP CATCHER 
CLEAR INT. COtPT.ER 


LOOP 


SEQ 0029 



-l^- •f' -t'l-t' ■*' -r^ -t* i^o*y*^yjiwugc*v>iO*u*f i oi\>Ajf\jKji\*\jr'jro?\j 
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CV0RD6 0RV11J 01 AG TST PRT2 
CVOROe.Pll 10-AUG-81 10:52 


E 3 

MAC V 1 1 306(1063) 10-AUG-81 11:00 PAGE 2-7 

T4 TEST VECTOR A0DR MEM.LVLS 0-7.BY0-3, (0-200) 6RPS 1.2 

SET I/E. EXPECT INTERRUPT 
EXPECT NUMBER OF INTERRUPTS 
EQUAL TO BYTE COUNT. 

SHOULD HAVE NUMBER OF INTERRUPTS 
EQUAL TO BYTE COUNT. 

.•RESTORE 0-202 
.•INTERRUPT TEST ERROR 
.‘RESTORE TRAP CATCHER SUB 

.READY TO READ ISR REG. 

.-SET UP FOR BYTE READS 
;SET UP FOR BYTE EXPECTED 
.•EXPECTED DATA 
.•LOAD MODE TO READ ISR 


RESTORE 0-200 
ISR ERROR 

RESTORE TRAP CATCHER 
STORE EXPECTED 
LOAD MODE FOR IMR 


006064 

Olf$ 

000002 

000001 


BISS 

I8IT1 .1 (R2) 

006072 

002472 

002124 


MOV 

BYNUM. SGDDAT 

006100 

013737 

002436 

002126 


MOV 

INTFLG.SBDDA* 

006106 

023737 

002124 

002126 


CMP 

SGDDAT. S6DDAT 

006114 

001405 




BEQ 

38 

006116 

004537 

011374 



JSR 

H5.FRMBUF 

006122 

104012 




ERROR 

12 

006124 

004537 

012024 



JSR 

R5.CAT200 

006130 

106427 

000340 


3$: 

MTPS 

#PR7 

006134 

010137 

002122 


4$: 

MOV 

R1 .S8DADR 

006140 

005037 

002126 



CLR 

86DDAT 

006144 

005037 

002124 



CLR 

SGDDAT 

006150 

111437 

002124 



MOVB 

(R4>, SGDDAT 

fMISR.(RO) 

(RD.SBDDAT 

006154 

112710 

000240 



movb 

006160 

111137 

002126 



MOVB 

006164 

023737 

002124 

002126 


CMP 

SGDDAT. S6DDAT 

006172 

001405 




BEQ 

5$ 

006174 

004537 

011374 



JSR 

R5.FRMBUF 

006200 

104006 




ERROR 

6 

006202 

004537 

012024 



JSR 

R5.CAT200 

006206 

116437 

000001 

002124 

5$: 

MOVB 

1(R4). SGDDAT 

006214 

112710 

000244 



MOVB 

fMIMR.(RO) 

(RD.SBDDAT 

006220 

111137 

002126 



MOVB 

006224 

023737 

002124 

002126 


CMP 

SGDDAT. SBDDAT 

006232 

001405 




BEQ 

68 

006234 

004537 

011374 



JSR 

R5.FRMBUF 

006240 

104005 




ERROR 

5 

006242 

004537 

012024 



JSR 

R5, CAT 200 

006246 

005037 

002124 


6$: 

CLR 

SGDDAT 

006252 

112710 

000250 



MOVB 

fMIRR.(RO) 

(RD.SBDDAT 

006256 

111137 

002126 



MOVB 

006262 

023737 

002124 

002126 


CMP 

SGDDAT. SBDDAT 

006270 

001405 




BEQ 

7$ 

006272 

004537 

011374 



JSR 

R5.FRMBUF 

006276 

104003 




ERROR 

3 

006300 

004537 

012024 



JSR 

R5.CAT200 

006304 

005037 

002124 


7$: 

CLR 

SGDDAT 

006310 

112710 

000254 



MOVB 

#NACR.(RO) 

(RD.SBDDAT 

006314 

111137 

002126 



MOVB 

006320 

023737 

002124 

002126 


CMP 

SGDDAT. SBDDAT 

006326 

001405 




BEQ 

10S 

006330 

004537 

011374 



JSR 

R5.FRMBUF 

006334 

104 004 
004537 




ERROR 

4 

006336 

012024 



JSR 

R5.CAT200 

SGDDAT 

w) 6342 

005037 

002124 


108: 

CLR 

006346 

112710 

000160 



MOVB 

#CISR.(RO) 

006352 

112710 

000240 



MOVB 

fMISR.(RO) 

(RD.SBDDAT 

006356 

111137 

002126 



MOVB 

006362 

023737 

002124 

002126 


CMP 

SGDDAT, SBDDAT 

006370 

001 405 




BEQ 

IIS 

006372 

004537 

011374 



JSR 

R5.FRMBUF 

006376 

104006 




ERROR 

6 

006400 

004537 

012024 



JSR 

R5.CAT200 

006404 

004537 

011762 


11$: 

JSR 

R5.RES200 


.RESTORE 0-202 
;IMR ERROR 
.•RESTORE CATCHER 

.•LOAD MODE BITS FOR IRR 


RESTORE 0-202 
IRR ERROR 

RESTORE TRAP CATCHER 


.•RESTORE 0-202 
;ACR ERROR 

.RESTORE TRAP CATCHER 
.CLEAR ISR 

.•LOAD NODE TO READ ISR 


RESTORE 0-202 
ISR REG ERROR 
RESTORE TRAP CATCHER 
RESTORE VECTOR JUST TESTED 


SEO 0030 




SEQ 0031 


F 3 

16-81 11:00 PA6E 2-8 

: C TOP ADDR MEM.LVLS 0-7.BY0-3, (0-200)6RPS 1,2 


R5.FRMBUF 

#2u4,VECLOC 

12$ 

112 $ 

(R4>* 

IMRLOC 

IRRLOC 

VECVAL 

LVLCNT 

13$ 

111 $ 

BYNUM 

#400, VECVAL 
14$ 

121 $ 

GRPCNT 

15$ 

DRCSC.RO 

DRCSD.R1 

120 $ 


R5.FRMBUF 


RESTORE 0-200 TO SYSMAC CONTROL 
FINISHED- 

TEST NEXT VECTOR ADDR 

INDEX EXPECTED ISR AND IMR PATTERN 

STORE CLEAR NEXT I.TR BIT 

STORE SET NEXT IRR BIT 

SETUP TO TEST NEXT VECTOR LEVEL 

FINISHED LEVELS 0-7? 

YES, CHECK BYTE COUNT END 

NO-DO NEXT LEVEL, SAME BYTE COUNT 

INDEX BYTE COUNT 

LOOK FOR SWITCH CHANGE 

FINISHED ALL FOUR BYTE COUNTS 

YES. FINISHED GROUP 

NO, DO NEXT BYTE COUNT WITH 

LEVELS 0-7. 

FINISHED BOTH GROUP 1 AND GROUP 2? 

YES, BOTH GROUPS TESTED 

NO, TEST GROUP 2 

CSRC = CONTROL GROUP 2 

CSRD = DATA GROUP 2 

RETURN AND TEST GR0UP2 

FOR BYTE COUNTS 0-3 AND 

LEVELS 0-7 FOR EACH BYTE COUNT. 

RESTORE 0-202. EXIT TEST 


TEST VECTOR ADDR UNIQUENESS IN FIXED MODE FOR GRPS 1,2 


R5.CLRCSR 

R5.CLRBF 

R5.TRPCAT 

R5.STRVEC 

#377, VECVAL 
R5.CLRIRR 
#V8UF.R4 
R5.VECFIL 

#SE TVEC.R5 

DRCSA.RO 

DRCSC.R1 

DRCSB.R2 

DRCSD.R* 

RO.SBDADR 

#PACR,(RO) 

#377, (R2) 

#CIMR.(RO> 

INTFLG 

#PRO 

#SIRR,(RO) 


BYTE COUNT = 4 

LEVELS = 0-7 

CLEAR ALL CSRS 

CLEAR VECTOR BUFFER AREA 

RESTORE TRAP CATCHER 

STORE VECTOR AREA 300-674 

WITH INT. SERV ROUTINES 

VECTOR MEM FINAL VALUE 

CLEAR IRR REGS 

VECTOR ADDRESS BUFFER 

FILL VECTOR MEMORY FOR GROUPS 1 ,2 

WITH VECTORS 300-674 


WITH VECTORS 300-674 
R5 POINTS TO COMMON HANDLER 
GROUP 1 CSR 
GROUP 2 CSR 


.STORE BUS ADDRESS 
; PRESELECT 6P1 ACR FOR WRITING 
; SET ALL ACR BITS GP1 
.•CLEAR ALL IMR BITS GP1 
.•CLEAR INT. FLAG 


;;GPA 


.-SET ALL IRR BITS 


CVDRDB 

DRV11J DIAG TST 

PRT2 

NAcrn 

306(1063) 

CVDRD6.P1 1 10-AUG-81 

10:52 


T5 

729 

006654 

112710 

000241 



730 

006660 

106427 

000340 



731 

006664 

005737 

002436 



73^ 

006670 

001401 




006672 

104011 

002436 


IS: 

734 

006674 

005037 


735 

006700 

112711 

000300 



736 

006704 

112713 

000377 



737 

006710 

112711 

000040 



738 

006714 

106427 

000000 



739 

006720 

112711 

000120 



740 

0C6724 

112711 

000241 



741 

006730 

106427 

000340 



742 

006734 

005737 

002436 



743 

006740 

001401 




744 

006742 

104011 



2S: 

7 45 

006744 

005037 

002436 


746 

006750 

106427 

000000 



747 

006754 

152760 

000002 

000001 


748 

006762 

012737 

000100 

002124 


749 

006770 

013737 

002436 

002126 


750 

006776 

106427 

000340 

002126 


751 

007002 

023737 

002124 


752 

007010 

001401 




753 

007012 

104012 


002124 

3S: 

754 

007014 

012737 

101710 

755 

007022 

010037 

002122 



756 

007026 

011037 

002126 

002126 


757 

007032 

042737 

000007 


758 

007040 

023737 

002124 

002126 


759 

007046 

001401 




760 

007050 

104002 

012737 


002124 


761 

007052 

000310 

4S: 

762 

007060 

010137 

002122 



763 

007064 

011137 

002126 

002126 


764 

007070 

042737 

000007 


765 

007076 

023737 

002124 

002126 


766 

007104 

001401 




767 

768 

007106 

007110 

104002 

010237 

002122 


5S: 

769 

007114 

005037 

002126 



770 

007120 

005037 

002124 



77 1 

007124 

112710 

000240 



772 

007130 

111237 

002126 



773 

007134 

023737 

002124 

002126 


774 

007142 

001401 




775 

007144 

104006 




776 

007146 

112710 

000244 


6S: 

777 

007152 

111237 

002126 

002126 


778 

007156 

023737 

002124 


779 

007164 

001401 




780 

007166 

104005 



7$: 

781 

007170 

112710 

000250 


782 

007174 

111237 

023737 

002126 

002126 


783 

007200 

002124 


784 

007206 

001401 





G 3 

10-AUG-81 11:00 PAGE 2-9 

TEST VECTOR ADDR UNIQUENESS IN FIXED NODE FOR GRPS 1,2 


wove 

#241, (RO) 

LHD57 - ARH THE CHIP 

HTPS 

#340 


TST 

INTFLG 

CHECK FOR NO INTERRUPTS 

BEQ 

IS 


ERROR 

D 

11 

TUTCI £ 

ILLEGAL INTERRUPT 

CLK 

wove 

INIrLu 
#PACR, (R1) 

PRESELECT GR0UP2 FOR WRITING 

hovb 

#377, (R3) 

ALL ACR BITS SET GP2 

HOVB 

#CIHR. (R1 ) 

CLEAR ALL I HR BITS GP2 

HTPS 

#PRO 


hovb 

#SIRR,(R1) 

SET ALL IRR BITS 

HOVB 

#241, (R1> 

LHD57 - ARH THE CHIP 

HTPS 

#PR7 


TST 

INTFLG 

CHECK FOR NO INTERRUPTS 

BEQ 

2S 


ERROR 

11 

■ILLEGAL INTERRUPT 

CLR 

INTFLG 


HTPS 

#PRw 


BIS6 

#81 T1 ,1 (RO) 

;SET INT. ENABLE, EXPECT INTERRUPTS 

NOV 

#64. .SGDDAT 

EXPECT 64 INTERRUPTS 

NOV 

INTFLG, S8DDAT 

SHOULD HAVE 64 INTERRUPTS 

HTPS 

#PR7 


CHP 

SGDDAT,S8DDAT 


BEQ 

3S 


ERROR 

12 

.•INTERRUPT TEST ERROR 

HOV 

#101710,SGDDAT 

;RDY, DIR, I/E, CHIP - 31X 

HOV 

RO.SBDADR 

;CSRA 

HOV 

(R0>, SBDDAT 


BIC 

#7,S8DDAT 

.•CLEAR UNDEFINED BITS 

CHP 

SGDDAT,S8DDAT 


BEQ 

4S 


ERROR 

2 

;CSRA REG ERROR 

HOV 

#310,SGDDAT 

.•STORE EXPECTED 

HOV 

R1.S8DADR 

;CSRC 

HOV 

<R1>. SBDDAT 

t 

BIC 

#,$8DDAl 

; CLEAR UNDEFINED BITS 

CHP 

SGDDAT, SBDDAT 


BEQ 

5S 


ERROR 

2 

;CSRC ERROR 

HOV 

R2,S6DADR 

;CSRB ADDRESS 

CLR 

SBDDAT 


CLR 

SGDDAT 


H0V8 

#HISR,(R0> 

,-READ ISR 

nova 

(R2), SBDDAT 


CHP 

SGDDAT, SBDDAT 


BEQ 

6S 


ERROR 

6 

; I SR ERROR, 6P1 

HOVB 

#HIHR.(RO) 

,*HODE BITS FOR IHP 

H0V8 

(R2), SBDDAT 


CHP 

SGDDAT, SBDDAT 


BEQ 

7S 


ERROR 

5 

;IHR ERROR, GP1 

HOVB 

#HIRR.(RO> 

;HODE BITS FOR IRR 

HOVB 

(R2),iBDDAT 


CHP 

SGDDAT, SBDDAT 


BEQ 

10S 



SEQ 0032 



CVDRD8 DRV11. OIAG 1ST PRT2 
CVDRDe.PlI 10-AUG-81 10:52 


H 3 

MACY11 306(1063) 10-AUG-81 11:00 PA6E 2-10 . . 

T5 tr ST VECTOR ADDR UNIQUENESS IN FIXED NOPE FOR GAPS 1,2 


SEQ 0033 


785 007210 

786 007212 

787 007220 

788 007224 
>89 007230 

790 007236 

791 007240 

792 007242 

793 007246 

794 007252 

795 007256 

796 007262 

797 007266 

798 007274 

799 007276 

800 007300 

801 007304 

802 007310 

803 007316 

804 007320 

805 

806 007322 

807 007326 

808 007332 

809 007340 

810 007342 

811 007344 

812 007350 

813 007356 

814 007362 

815 007 

816 007372 

817 007374 

818 007400 
7404 
7412 

16 


ip 

112710 

111237 

023737 

001401 

104004 

005037 

005037 

010337 

112711 

111337 

023737 

001401 

104006 

112711 

111337 

023737 

001401 

104005 

112711 

111337 

023737 

001401 

104003 

112711 

012737 

111337 

023737 

001401 

104004 

012702 

012704 

012737 

010437 

011437 

023737 

001401 

104007 


007474 


000377 

000254 

002126 

002124 


002124 

002126 

002122 

000240 

002126 

002124 


00024 » 
002126 
002124 


000250 

002126 

002124 


000254 

000377 

002126 

002124 


000100 

017160 

000300 

002122 

002m 

002124 


vm 


002124 10$: 


002126 


002126 


002126 


002126 


002124 

002126 


002124 


002126 


002124 17$: 


002124 000400 
000300 002124 
000002 


1000 $: 


FAROR 

'*>V 

NOVB 

N0V8 

CAP 

6EQ 

ERROR 

CLR 

CLR 

NOV 

FI0V8 

novb 

CNP 

BEQ 

ERROR 

NOVB 

NOVB 

CAP 

BEQ 

ERROR 

NOVB 

NOVB 

CNP 

BEQ 

ERROR 

NOVB 

NOV 

NOVB 

CNP 

8EQ 

ERROR 

NOV 

NOV 

NOV 

NOV 

NOV 

CNP 

BEQ 

ERROR 

ADD 

TST 

BEQ 

CNP 

BLO 

NOV 


#377.$GDDAT 
#NACR, (RO) 
(R2).$BDDAT 
$GDDAT,$BDDAT 
11 $ 

4 

$GDDAT 

$8DDAT 

R3,$8DADR 

#NISR.<R1> 

<R3),$BDDAT 

$GDDAT,$BDDAT 

12 $ 

6 

#NIHR.(R1> 

(R3) .SBDDAT 

$GDDAT,$BDDAT 

13$ 

5 

#NIRR.(R1> 

(R3),$BDDAT 

$GDDAT,$BDDAT 

14$ 

3 

#NACR, (R1 ) 
#377, $GDDAT 
(R3) .$6DDAT 
$GDDAT.$BDDAT 
15$ 

4 

#64.. R2 

#VBUF.R4 

#300,$GDDAT 

R4.S6DADR 

(R4).$8DDAT 

$GDDAT,$8DDAT 

17 $ 

7 

#4,$GDDAT 

KXTFLAG 

1000S 

$6DDAT.#400 

1000 $ 

#300.$GDDAT 

#2.R4 

R2 

16$ 


IRR ERROR 
EXPECTED ACR 
READ ACR 


;ACR ERROR 


;CSRD ADDRESS 
.-READ I SR .GP2 


;ISR ERROR. GP1 
.-READ INR GP2 


;INR ERROR. GP2 
.‘READ IRR 


;IRR ERROR. GP2 
.•READ ACR 


;ACR ERROR. GP2 
.•VECTOR BUFFER 

.•START WITH FIRST VECTOR 300 
.•VECTOR BUFFER ADDRESS 


VECTORED PROPERLY 
VECTOR ADDR NEN ERROR 

KXT11 ?? ;; 

BR IF NOT 

YES, REACHED VECTOR 400 ?? 

NOT YET, CONTINUE 

YES. RESET EXPECTED TO 300 

NEXT BUFFER ADDRESS 
CONPLETED 64 BUFFER CHECKS? 

CHECK NEXT VECTOR BUFFER LOCATION 
THAT WAS STORED BY THE INTERRUPT 
SERVICE ROUTINES. 


iTEST*6********TEST*VECT0R*ADDR*UNI0UENESS IN ROTATING NODE FOR GRPS 1 .2 


J 


CV0R06 DRV11J 01 AG TST PRT2 
CVDR06.P11 10-AUG-81 10:52 


(2) 007476 
8*9 
^ ' 

841 007500 

842 007504 

843 007510 

844 007514 

846 007520 

847 0075? 

848 0075 

849 0075! 

850 

851 007542 

852 007546 

853 007552 

854 007556 

855 007562 

856 007566 

857 007572 

858 007600 

859 007604 

860 007610 

861 007614 

862 007620 

863 007624 

864 007630 

865 007634 

866 007640 

867 007642 

868 007644 

869 007650 

870 007654 

871 007660 

872 007664 

873 007670 

874 007674 

875 007700 

876 007704 

877 007706 

878 007710 

879 007714 

880 007720 

881 007726 

882 007734 

883 007742 

884 007746 

885 007754 

886 007756 

887 007760 

888 007764 

889 007770 

890 007774 

891 007776 

892 010002 

893 010010 


000004 


004537 0MQ14 
004537 011334 
004537 011524 
004537 011300 

012737 000377 
004537 011074 
01 2704 017160 
004537 011132 


012705 

013700 

013701 

013702 

013703 

010037 

012737 

112710 

112710 

005037 

106427 

112710 

112710 

106427 

005737 

001401 

104011 

005037 

112711 

112711 

106427 

112711 

112711 

106427 

005737 

001401 

104011 

005037 

106427 

152760 

m? 

m 

001401 

104012 

112710 

112710 

005337 

001345 

112710 

012737 

005037 


012210 

002412 

002422 

002416 

002426 

002122 

000010 

000201 

000040 

002436 

000000 

000120 

000241 

000340 

002436 


002436 

000201 

000040 

000000 

000120 

000241 

000340 

002436 


002436 

000000 

000002 

000004 

002436 

000340 

002124 


000140 

000120 

002474 

000100 

000010 

002436 


HACY11 306(1063) 
T6 


I 3 

10-AUG-81 11:00 PAGE 2-11 

TEST VECTOR ADDR UNIQUENESS IN ROTATING NODE FOR GRPS 


1,2 


TST6: SCOPE 




JSR 

R5.CLRCSR 



JSR 

R5.CLRBF 



JSR 

R5.TRPCAT 



JSR 

R5.STRVEC 

002456 


HOV 

#377.VECVAL 



JSR 

R5.CLRIRR 



HOV 

#VBUF,R4 



JSR 

R5.VECFIL 



HOV 

#SETVfcC,R5 



NOV 

DRCSA.RO 



HOV 

DRCSC.R1 



HOV 

DRCS8.R2 



HOV 

DRCSD.R3 



HOV 

RO.SSDADR 

002474 


HOV 

#8.. LVLSAV 



HOVB 

#201, (RO) 



HOVB 

#CIHR,(RO) 



CLR 

INTFLG 



HTPS 

#PRO 



HOVB 

#SIRR.(RO) 



HOVB 

#241, (RO) 



HTPS 

#340 



TST 

INTFLG 



BEQ 

1$ 



ERROR 

11 


1$: 

CLR 

INTFLG 



H0V8 

#2 01 . (R1> 



HOVB 

#CIHR,(R1) 



HTPS 

#PRO 



HOVB 

#SIRR,(R1) 



HOVB 

#241, (R1) 



HTPS 

#PR7 



TST 

INTFLG 



BEQ 

2$ 



ERROR 

11 


2$: 

CLR 

INTFLG 



HTPS 

#PRO 

000001 


BISB 

#BIT1,1(R0> 

002124 


HOV 

#4,$.>DAT 

002126 


HOV 

INTFLG, SBDDAT 



HTPS 

#PR7 

002126 


CHP 

$GDDAT,$6DDAT 



BEQ 

100$ 



ERROR 

12 


100$: 

HOVB 

#CHPISR, (RO) 



HOVB 

#SIRR, (RO) 



DEC 

LVLSAV 



BNE 

2$ 



HOVB 

#CIRR,(RO) 

002474 


HOV 

#8., LVLSAV 


101$: 

CLR 

INTFLG 


BYTE COUNT * 4 
LEVELS = 0-7 
CLEAR ALL CSRS 
CLEAR VECTOR BUFFER AREA 
RESTORE TRAP CATCHER 
STORE VECTOR AREA 300-674 
WITH INT. SERV ROUTINES 
VECTOR HEN FINAL VALUE 
CLEAR IRR REGS 
VECTOR ADDRESS BUFFER 
FILL VECTOR HEHORY FOR GROUPS 1,2 
WITH VECTORS 300-674 
R5 POINTS TO COHHON HANDLER. ;;GPA 
GROUP 1 CSR 
GROUP 2 CSR 


STORE BUS ADDRESS 
COUNTER FOR 7 LEVELS 
ROTATING PRIORITY GROUP 1 
CLEAR ALL I HR BITS GP1 
CLEAR INT. FLAC 

SET ALL IRR BITS 
LHD57 - ARH THE CHIP 

CHECK FOR NO INTERRUPTS 

ILLEGAL INTERRUPT 

: ROTATING PRIORITY FOR GROUP 2 
: CLEAR ALL I HR BITS GP2 

SET ALL IRR BITS 
:LHD57 - ARH THE CHIP 

; CHECK FOR NO INTERRUPTS 

r ILLEGAL INTERRUPT 


;SET INT. ENABLE, EXPECT INTERRUPTS 
.•EXPECT 4 INTERRUPTS 
: SHOULD HAVE 4 INTERRUPTS 


INTERRUPT TEST ERROR 
CLEAR HIGHEST PRIORITY ISR 
SET ALL IRR BITS 
DONE 8 LEVELS, 6R0UP 1 
DO NEXT LEVEL IN ROTATION 
CLEAR IRR BITS GROUP 1 
DO 8 LEVELS. GROUP 2 
CLEAR INT FLAG 


SEQ 0034 


CVORD0 DRV11J OIAG TST PRT2 
CVDRDB.P11 10- AUG-81 10:52 


J 3 

NACY11 305(1063) 10-AUG-81 11:00 PAGE 2-12 _ , . 

T6 TEST VECTOR AODR UNIQUENESS IN ROTATING NODE FOR GRPS 1.2 


SEQ 0035 


894 010014 

895 010020 

896 010026 

897 010034 

898 010040 

899 010046 

900 010050 

901 010052 

902 010056 

903 010062 

904 010066 

905 010070 

906 010074 

907 010102 

908 010106 

909 010112 

910 010120 

911 010126 

912 010130 

913 010132 

914 010140 

915 010144 

916 010150 

917 010156 

918 010164 

919 010166 

920 010170 

921 010174 

922 010200 

923 010204 

924 010210 

925 010214 

926 010222 

927 010224 

928 010226 

929 010232 

930 010236 

931 010244 

932 010246 

933 010250 

934 010254 

935 010260 

936 010266 

93 7 010270 

938 010272 

939 010276 

940 010302 

941 010310 

942 010312 

943 010314 

944 010320 

945 010324 

946 010330 

947 010336 

948 010340 

949 010342 


106427 

m 

m 

001401 

104012 

112711 

112711 

005337 

001350 

112711 

012737 

010037 

011037 

042737 

023737 

001401 

104002 

012737 

010137 

011137 

042737 

023737 

001401 

104002 

010237 

005037 

005037 

112710 

111237 

023737 

001401 

104006 

112710 

111237 

023737 

001401 

104005 

112710 

111237 

023737 

001401 

104003 

112710 

111237 

023737 

001401 

104004 

010337 

112711 

111337 

023737 

001401 

104006 

112711 


000000 

000004 

002436 

000340 

002124 


000140 

000120 

002474 

000100 

101750 

002122 

002126 

000007 

002124 


000350 

002122 

002126 

000007 

002124 


002124 

002126 

002126 


102S: 


002124 3$: 


002126 

002126 


002124 4$: 


002126 

002126 


002122 5$: 

002126 
002124 
000240 
002126 

002124 002126 


000244 6$: 

002126 

002124 002126 


000250 7$: 

002126 

002124 002126 


000254 10$: 

002126 

002124 002126 


002122 11 $: 
000240 
002126 

002124 002126 


000244 12$: 


NTPS #PRO 

HOV #4,$GDDAT 

NOV INTFLG,$BDDAT 

NTPS #PR 7 

CNP SGDDAT.S8DDAT 

BEQ 102$ 

ERROR 12 

N0V8 MCHP1 SR, (R1 ) 

NOVB (FSIRR, <R1) 

DEC LVLSAV 

BNE 101$ 

NOVB # CIRR.(RI) 

NOV #101750,$GDDAT 

NOV RO.SBDADR 

NOV (r6),$B00AT 

BIC #7.$8DDAT 

CNP $GDDAT,$BDDAT 

BEO 4$ 

ERROR 2 

NOV *350,$GDDAT 

NOV R1 .$BDADR 

NOV <R1),$BDDAT 

BIC #7,$8DDAT 

CNP $GDDAT,$BDDAT 

BEQ 5$ 

ERROR 2 

NOV R2,$6DA0R 

CLR $6DDAT 

CLR $GDDAT 

NOVB #HISR.(RO) 

NOVB <R2).$8DDAT 

CNP $GDDAT,$8DDAT 

BEQ 6$ 

ERROR 6 

NOVB #HIHR, (RO) 

NOVB (R2),$BDDAT 

CNP $GDDAT,$8DDAT 

BEQ 7$ 

ERROR 5 

NOVB #HIRR,(RO) 

NOVB (R2).$BDDAT 

CNP S3DDAT.$BDDAT 

BEQ 10$ 

ERROR 3 

N0V8 fHACR.(RO) 

NOVB (R2) ,$8DDAT 

CNP $GDDAT.$BDDAT 

BEQ 11$ 

ERROR 4 

HOV R3,$BDADR 

NOVB #HiSR,(R1) 

HOV B (R3),$BDDAT 

CNP SGDDAT.SBDDAT 

BEQ 12$ 

ERROR 6 

NOVB #HIHR,(R1) 


.•SHOULD HAVE FOUR INTERRUPTS 


.•INTERRUPT TEST ERROR 
.•CLEAR HIGHEST PRIORITY I SR 
.-SET ALL IRR BITS 
.-DONE 8 LEVELS? 

;D0 NEXT LEVEL IN ROTATION. GP2 
.•CLEAR IRR BITS. GROUP 2 
;RDY, DIR, I/E. CHIP - 35X 
; CSRA 

.•CLEAR UNDEFINED BITS 


CSRA REG ERROR 
STORE EXPECTED 
CSRC 

CLEAR UNDEFINED BITS 


;CSRC ERROR 
;CSRB ADDRESS 


.READ I SR 


;ISR ERROR, GP1 
.-NODE BITS FOR IHR 


;INR ERROR. GP1 
.-NODE BITS FOR IRR 


;IRR ERROR 
.-READ ACR 


ACR ERROR 
CSRD ADDRESS 
READ I SR ,GP2 


;ISR ERROR, GP1 
.-READ INR GP2 



CVDRDB DRV11J DIAG TST PRT2 
CVDROe.PH 10-AUG-81 10:52 


K 3 

HA r Yl1 306(1063) 10-AUG-81 11:00 PAGE 2-13 , . , 

T6 TEST VECTOR ADDR UNIQUENESS IN ROTATING NODE FOR GRPS 1.2 


SEQ 0036 


950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 
9 '9 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 

1005 


010346 

010352 

010360 

010362 

010364 

010370 

010374 

010402 

010404 

010406 

010412 

010416 

010424 

010426 

010430 

010432 

010434 

010442 

010446 

010452 

010460 

010466 

010470 

010472 

010500 

010504 

010510 

010516 

010524 

010526 

010530 

010534 

010540 

010546 

010552 

010556 

010564 

010566 

010570 

010576 

010602 

010604 

010612 

010614 

010622 

010622 

010626 

010630 


010632 

010636 


111337 

023737 

001401 

104005 

112711 

111337 

023737 

001401 

104003 

112711 

111337 

023737 

001401 

104004 

105010 

105011 

012737 

010037 

011037 

042737 

023737 

001401 

104002 

012737 

010137 

011137 

042737 

023737 

001401 

104002 

012702 

012704 

012737 

010437 

011437 

023737 

001401 

104007 

062737 

005737 

001407 

023727 

103403 

012737 


005302 

001346 


002126 

002124 002126 


000250 


13$: 

NO VS 

002126 



N0V8 

002124 

002126 


CNP 



BEQ 

ERROR 


000254 


14$: 

NOVB 

002126 



NOVB 

002124 

002126 

200$: 

CNP 

BEQ 

ERROR 

CLRB 

CLRB 

101700 

002124 


NOV 

002122 



NOV 

002126 



NOV 

000007 

002126 


BIC 

002124 

002126 


CNP 

BEQ 

ERROR 

000200 

002124 

201$: 

NOV 

002122 



NOV 

002126 



NOV 

000007 

002126 


BIC 

002124 

002126 


CNP 

BEQ 

ERROR 

000100 


15$: 

NOV 

017160 



NOV 

000300 

002124 


NOV 

002122 


16$: 

NOV 

002126 



NOV 

002124 

002126 


CNP 

BEQ 

ERROR 

000004 

002124 

17$: 

ADD 

017374 



TST 




BEQ 

002124 

000400 


CNP 




BLO 

000300 

002124 

1000$: 

NOV 

000002 



ADD 


NOVB (R3) ,$8DDAT 
CAP $GDDAT,$BDDAT 

BEQ 13$ 

ERROR 5 


#NIRR.(R1) 

(R3) ,$8DDAT 

$GDDAT,$BDDAT 

14$ 

3 

#HACR.(R1) 

(R3) ,$8DDAT 
$GDDAT,$8DDAT 
200 $ 

4 

(RO) 

<R1> 

#101700,$GDDAT 

RO.SBDADR 

(RO) ,$8DDAT 

#7,$8DDAT 

$GDDAT,$8DDAT 

201 $ 

#200,$GDDAT 

R1 >$80 ADR 

(R1),$8DDAT 

#7.$8DDAT 

$GDDAT.$BDDAT 

15$ 

2 

#64., R 2 

#VBUF.R4 

#300, $600 AT 

R4.S8DADR 

(R4) ,$8D0AT 

$G0DAT,$BD0AT 

17 $ 

7 

#4,$GDDAT 

KXTFLAG 

1000 $ 

$G0DAT ,#400 
1000 $ 

#300,$GDDAT 


#2,R4 
DEC R 2 

BNE 16$ 


;INR ERROR, GP2 
;READ IRR 


; IRR ERROR, GP2 
.-READ ACR 


;ACR ERROR, GP2 
;INIT GROUP 1 NODE BITS 
;1NJT GROUP 2 NODE BITS 
.•EXPECTED CSRA 
;CSRA 

.•CLEAR UNDEFINED BITS 


CSRA REG ERROR 
STORE EXPECTED 
CSRC 

CLEAR UNDEFINED BITS 


;CSRC ERROR 
.•VECTOR BUFFER 

.-START WITH FIRST VECTOR 300 
.•VECTOR BUFFER ADDRESS 


VECTORED PROPERLY 
VECTOR ADDR NEN ERROR 

KXT11 ?? 

BR IF NOT 

YES. REACHED VECTOR 400 ?? 

NOT YET, CONTINUE 

YES. RESET EXPECTED TO 300 


NEXT BUFFER ADDRESS 
CONPLETED 64 BUFFER CHECKS? 

CHECK NEXT VECTOR BUFFER LOCATION 
THAT WAS STORED BY THE INTERRUPT 
SERVICE ROUTINES. 


GPA 

GPA 

GPA 

GPA 

GPA 

GPA 


013701 002412 
000241 


.•DON’T REPORT ’END OF PASS’ UNTIL ALL SELECTED ggVlIJ’S HAVE BEEN TESTED. 
NXDEV: NOV DRCSA.R1 ;INIT TO SETUP DRV11J ADDRESS 

NXDEV1: CLC ; CLEAR CARRY FOR DEVICE NAP 



.VUhDt. OR Vl 1 J 

i VDR06.P11 


D1AG TST PRT2 
10-AUG-81 10:52 


1006 

1007 

100u 

1009 

1010 

1011 

1012 

1013 

1014 
( 1 ) 
( 2 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 2 ) 
( 1 ) 
( 1 ) 
( 1 ) 
(1) 
( 1 ) 
(1) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 2 ) 
C2> 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
CD 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
CD 
C1) 


010640 

010644 

010646 

010652 

010656 

010664 

OIO 066 


010672 

010672 

010674 

010700 

010704 

010710 

010716 

010720 

010722 

010724 

010726 

010730 

010732 

010736 

010742 

010744 

010750 

010754 

010756 

010760 

010762 

010764 

010766 

010770 

010770 

010772 

010774 

010777 


000240 

005037 

005037 

005237 

042737 

005327 

000001 

003022 

012737 

000001 

010720 

104401 

013746 

104405 

104401 

013700 

001405 

000005 

004710 

000240 

000240 

000240 

000137 

003134 

377 

015 


002102 

002160 

002176 

100000 


L 3 
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T 6 TEST VECTOR ADDR UNIQUENESS IN ROTATING NODE FOR GRPS 1 .2 

LOOK FOR NEXT DRV11J 
8 ft IF ALL TESTED 

NEXT DRV11J STARTS -20 FRO* PAST CSR 
UPDAT UNIT # 

IS UNIT SELECTED? 

BR IF NOT 
TEST NEXT DRV11J 

.SBTTL END OF PASS ROUTINE 


•INCREMENT THE PASS NUMBER (SPASS) _ 

•TYPE "END PASS #XXXXX" C WHERE XXXXX IS A DECIMAL NUMBER) 
•IF THERES A MONITOR GO TO IT 
•IF THERE ISN'T JUMP TO START1 


006037 

001412 

002434 

ROR 

BEQ 

DMAP 

SEOP 

162701 

000020 

SUB 

# 20 , R 1 

005237 

032737 

001764 

002202 

INC 

SUNIT 

000001 002434 

BIT 

BEQ 

#1 .DMAP 
NXDEV1 

000137 

003200 

JMP 

NEXPAS 


SEOP: 


002176 


SFOPCT : 
SENDCT: 


010777 

002176 

010774 

000042 


NOP 

CLR 

CLR 

INC 

BIC 

DEC 

.WORD 

BGT 

NOV 

.WORD 

SEOPCT 

TYPE 

NOV 

TYPDS 


STSTNM 

STINES 

SPASS 

#100000, SPASS 
(PC> + 

1 

SDCAGN 

CPC)+,BCPC)+ 

.SENDMG 
SPASS, -CSP) 


377 

042412 



TYPE 

.SENULL 

SGET42: 

NOV 

BEQ 

RESET 

B#42,R0 

SDOAGN 

PC.CRO) 

SENDAD: 

JSR 


NOP 



NOP 



NOP 


SDOAGN: 

JMP 

BCPC) ♦ 

SR T NAD: 

.WORD 

START 1 

SENULL: 

SENDMG: 

.BYTE 

.ASCIZ 

<1$><12>/END 


;;2ER0 THE TEST NUMBER 

;;Z ERO THE NUMBER OF ITERATIONS 

;; INCREMENT THE PASS NUMBER 

; .-DON'T ALLOW A NEG. NUMBER 

.‘.‘LOOP? 

* ‘YES 

; -RESTORE COUNTER 


TYPE "END PASS #" 

SAVE SPASS FOR TYPEOUT 

GO TYPE— DECIMAL ASCII WITH SIGN 

TYPE A NULL CHARACTER 

GET MONITOR ADDRESS 

BRANCH IF NO MONITOR 

CLEAR THE WORLD 

GO TO MONITOR 

SAVE ROOM 

FOR 

ACT11 

RETURN 

NULL CHARACTER STRING 

#/ 


SEQ 0037 
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1016 





.S8TTL 

PROGRAM SUBROUTINES 


1U1 f 
1018 









1019 









1020 





.-CLEAR 

ALL CONTRCL/STATUS REGISTERS 

1021 





;;***** 




1022 

011014 

010046 



CIRCSR: 

MOV 

RO.-(SP) 

.-SAVE RO 

1023 

011016 

106427 

000340 



MTPS 

#PR7 

;PSU = 340 

1024 

011022 

012737 

000340 

002456 


MOV 

#PVNA,VECVAL 

;INIT VECTOR ADDR MEM = 340 

1025 

011030 

012737 

000300 

002452 


MOV 

#300.VECLOC 

;INIT VECTOR ADDR TO 300 

1026 

011036 

013700 

002412 



MOV 

DRCSA.RO 

.-START OF CSR ADDRESS 

1027 

011042 

005037 

002124 



CLR 

SGDDAT 

.CLEAR EXPECTED 

1028 

011046 

005037 

002126 



CLR 

SBDDAT 

.•CLEAR REC’D 

1029 

011052 

005010 




CLR 

(RO) 

.•CLEAR CSRA.-CHIP RESET GROUP 1 

1030 

011054 

105060 

000005 



CLRB 

5<R0) 

.•CLEAR HIGH BYTE CSRB 

1031 

011060 

005060 

000010 



CLR 

1 0 (RO) 

.•CLEAR CSRC.-CHIP RESET GROUP 2 

1032 

011064 

105060 

000015 



CLRB 

1 5 (RO) 

.•CLEAR HIGH BYTE CSRD 

1033 

011070 

2600 




MOV 

(SP)+,RO 

.•RETURN RO 

1034 

011072 

wv/0205 




RTS 

R5 


1035 

1A7X 









1 U3C 
1037 





.•CLEAR 

IRP REGISTERS, GROUP 1, GROUP 2 WIT H CHIP RESET 

1038 

011074 

010046 



CLRIRR: 

MOV 

RO.-(SP) 


1039 

011076 

013700 

002412 



MOV 

DRCSA.RO 

; START OF CSR ADDRESS 

1C40 

011102 

105060 

000011 



CLRB 

11 (RO) 

;CSRC TO INPUT MODE 

1041 

011106 

112760 

000001 

000001 


MOVB 

#8IT0,1(R0) 

;CSRA TO OUTPUT MODE 

1042 

011114 

005060 

000002 



CLR 

2(R0) 

.•CLEAR D8RA 

1043 

011120 

105010 




CLRB 

(RO) 

.-CHIP RESET OF GR0UP1 

1044 

011122 

105060 

000010 



CLRB 

10(R0) 

.-CHIP RESET OF GROUP 2 

1045 

011126 

012600 




MOV 

(SPH.RO 

.•RESTORE REGISTER 

1046 

011130 

000205 




RTS 

R5 

;EXIT 

1 VHf 

1048 





.•ROUTINE TO FILL VECTOR MEMORY 

FOR VECTOR UNIQUENESS TEST 

1049 





.-300-474 

GROUP 1 


1050 





.-500-674 

GROUP 2 


1051 

011132 

013700 

002412 


VECFIL: 

MOV 

DRCSA.RO 

.•START GROUP 1 

1052 

011136 

013701 

002416 



MOV 

DRCS6.R1 


1053 

011142 

012702 

IMM4I 



MOV 

#2.R2 

; TU0 GROUPS 

1054 

011146 

012737 

000060 

002454 


NOV 

#60. VECPAT 

.•VECTOR START 300 

1055 

011154 

012737 

000370 

002456 

1$: 

MOV 

#370,VECVAL 

.•START VECTOR LEVEL 0.BY4 

1056 

011162 

012737 

000010 

002466 


MOV 

#8. .LVLCNT 

.•LEVELS 0-7 

1057 

011170 

113710 

002456 


2$: 

MOVB 

VECVAL.(RO) 


1058 

011174 

012737 

000004 

002470 


MOV 

#4.BYCNT 

;D0 FOUR BYTE COUNTS 

1059 

011202 

113711 

002454 


3$: 

MOVB 

VECPAT.(RI) 

; WRITE VECTOR 

1060 

011206 

005237 

002454 



INC 

VECPAT 

.•SETUP FOR NEXT VECTOR 

1061 

011212 

005737 

017374 



TST 

KXTFLAG 

; KXT11 ?? 

1062 

011216 

001407 




BEO 

1000$ 

; BR IF NOT 

1063 

011220 

023727 

002454 

000100 


CMP 

VECPAT, #100 

; YES. REACED VECTOR 400 ?? 

1064 

011226 

103403 




BLO 

1000$ 

; NOT YET. CONTINUE 

1065 

011230 

012737 

000060 

002454 


MOV 

#60, VECPAT 

; YES. WRAP-AROUND TO 300 AGAIN 

1066 








; WE’LL END UP WITH 300-374... 

1067 








.-...REPLICATED 4 TIMES. 

1068 

011236 




1000$: 




1069 

011236 

005337 

002470 



DEC 

BYCNT 

;DONE FOUR BYTE COUNTS? 

1070 

011242 

001357 




BNE 

3$ 

;D0 NEXT VECTOR 

1071 

011244 

005337 

002466 


4$: 

DEC 

LVLCNT 

.-DONE ALL LEVELS IN GROUP? 


;GPA 

;GPA 

;GPA 

;GPA 

;GPA 

;GPA 

;GPA 

;GPA 


SEO 0038 
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1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 


11 

11 

11 

11 

11 

11 

11 


>1 


on 

on 

Oil 

Oil 

on 

on 

on 

on 

on 


>50 

>52 

>56 

& 

Ifo 

$6 


I 


011300 

011304 

011310 

011314 

011316 

011322 

011326 

011330 

011332 


011334 

011340 

011344 

011346 

011350 

011352 


011354 

011356 

011362 

011364 

011370 

011372 


011374 
011376 
011400 
011402 
011406 
011410 
011414 
011416 
011424 
0114 
0114 


011432 

011440 


0014 
0052 
000744 
005302 
001405 
013700 
013701 
000727 
000205 


012700 

012701 

012702 

010120 

012720 

062701 

005302 

001371 

000205 


012700 

012701 

005020 

005301 

001375 

000205 


005000 

012701 

012021 

022700 

001374 

000205 


010046 
010146 
005000 
012701 
012120 
22700 
1374 
13777 

ISjg 


022737 

001421 



002456 


002422 

002426 


000300 

012236 

000100 

000340 

000004 


017160 

000100 


016754 

000204 


5S: 


6S: 


BEQ 

INC 

BR 

DEC 

BEQ 

MOV 

MOV 

BR 

RTS 


5$ 

VECVAL 

2$ 

R 2 
6S 

DRCSC.RO 

DRCSD.R1 

IS 

R5 


INC NEXT LEVEL 
DO NEXT LEVEL 
DONE BOTH GROUPS? 
DONE, EXIT 
DO GROUP 2 


.-EXIT 


; ROUTINE TO 
STRVEC : MOV 
MOV 
MOV 
MOV 
MOV 
ADD 
ADD 
DEC 
BNE 
RTS 


STORE VECTOR AREA 300-674 WITH INTERRUPT SERVICE 


IS: 

;;G?A 


1300.R0 
0INTO.R1 
064.. R2 
R1 . <R0) 
03*0. (ROH 
06.R1 
04, R1 
R2 
1$ 

R5 


START AT VECTOR 300 
FIRST SERVICE ROUTINE 
STORE 64 SERVICE ROUTINES 


.•SETUP FOR NEXT VECTOR STORAGE 
; SETUP NEXT VETOR. 

.-DONE WITH 64 VECTOR ROUTINES? 


; ; GPA 


; ROUTINE TO CLEAR VECTOR BUFFER 


CLRBF : 
1$: 


MOV 

MOV 

CLR 

DEC 

BNE 

RTS 


0V8UF.RO 
064.. R1 
(R0) + 

R1 

1$ 

R5 


.-EXIT 


.•VECTOR BUFFER START 


.•ROUTINE TO STORE 0-202 INTO BUFFER AREA TO ALLOW 
.•VECTOR TESTS TO 0-200. 

RO 


TOBUF : 
IS: 


CLR 

MOV 

MOV 

CMP 

BNE 

RTS 


0DBUF.R1 
(R0)+. (R1 )♦ 
02O4.RO 

IS 

R5 


BUFFER START 

STORE 0-202 INTO BUFFER 

FINISHED? 

NO 

RETURN 


016754 

000204 

002460 170514 


000001 002210 


.-STORE BUFFER AREA INTO LOCATIONS 0-202 
; AFTER VECTOR TESTS 

fRMBUF: MOV RO.-(SP) ;SAVE RO 

MOV RI.-(SP) 

CLR RO 

MOV 0D8UF.R1 

IS: MOV <R1)+.(R0>* 

CMP 02O4.RO 

BNE IS 

MOV SWRSAV.aSWR 

MOV CSPH.R1 

MOV (SP) *.R0 

RTS R5 


BUFFER START 

STORE BUFFER INTO LOCS 0-202 
FINISHED? 

NO 

STORE LOCATION 176.S0FT SWR 
RESTORE R1 
RESTORE RO 
RETURN 


;RESTORE VECTOR JUST TESTED TO 0RI6INAL TRAP FOR 204-1774 
feSTRP: CMP 01.SENV .-CHECK FOR APT 

BEQ IS • ; YES, BRANCH 


SfcQ 0039 
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SEO 0040 


1128 

1129 

1130 

1131 
n32 

1133 

1134 

1135 

1136 

ill! 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 
11 .0 
llol 
1162 

1163 

1164 

1165 

1166 

1167 

1168 
116*> 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 
1181 
1182 
1183 


011441 

01145? 

01145; 

01146? 

011464 

011466 

011474 

011476 

011502 

011504 

011510 

011514 

011522 


032777 

001412 

062737 

013723 

005013 

062737 

000412 

012723 

000402 

012723 

012713 

062737 

000205 


010000 

000002 

002452 

000002 

011752 

011734 

000340 

000004 


170470 

002452 

002452 


002452 


BIT #SWl2.aSWR 

BEQ 10$ 

ADD #2,VEC10C 

NOV VECLOC, (R3)* 

CIR (R3) 

ADD #2,VECL0C 

BR 2$ 

10$: NOV #TRPALL.(R3)* 

BR 11$ 

1$: NOV #TRP0UT.(R3)+ 

11$: NOV #340, (R3) 

ADD #4,VtCL0C 

2$: RTS R5 


CHECK TYPE OF TRAP RETURN 

RESTORE ILLEGAL VECTOR ROUTINE 

RESTORE TRAP 

TO VECTOR 

RESTORE HALT 

SETUP FOR NEXT 

RETURN 

RESTORE ILLEGAL TRAP ROUTINE 

RESTORE PSW 

RESTORE APT SUB TRAP 

IF ON APT 

RESTORE PSW SAVE 

UPDATE FOR NEXT VECTOR 

RETURN 


ROUTINE TO SET UP TRAP CATCHER 204-1774 IN STANDALONE NODE OR 
A COMNON VECTOR ROUTINE SETUP UNDER APT. 

VECTOR ROUTINE IS USED ONLY IN AN APT ENVIRONNENT AND WILL STORE 
A CONNON SUBROUTINE IN VECTOR AREA 204-1774. 


011524 

010046 



TRPCAT : NOV 

RO.-(SP) 

.-SAVE RO 

011526 

010146 



NOV 

R1.-CSP) 


011530 

022737 

000001 

002210 

CNP 

#1 ,$ENV 

.•CHECK FOR APT 

011536 

001426 



BEQ 

APTVEC 

; YES. SET UP TRAPS FOR APT 

011540 

012700 

000204 


NOV 

#204 ,R0 

; START CATCHER AT 204 

011544 

032777 

010000 

170366 

PIT 

#swi2.aswR 

.'TEST IF SU12 IS SET 

011552 

001010 



BNE 

1$ 

.-YES.BR AND STORE REGULAR TRAP 







;CATCMER(.+2,HALT) IN LOCATIONS 







.-204-1774 

011554 

012720 

011752 


11$: NOV 

#TRPALL,(R0)+ 

; NO, PLACE ILLEGAL VECTOR RETURN 

011560 

012720 

000340 


NOV 

#340. (Ru)+ 

.•ROUTINES IN LOCATIONS 204-1774 

011564 

022700 

002000 


CNP 

#2000. RO 

.•STORED ALL VECTORS? 

011570 

001371 



BNE 

11$ 


011572 

000421 



BR 

ENDTRP 

;RETURN AFTER VECTOR STORAGE 

011574 

010001 



1$: NOV 

R0.R1 

;DRV11J CAN VECTOR 0-1774 

011576 

005721 



TST 

(R1>* 


011600 

010120 



NOV 

R1.(R0H 


011602 

005020 



CLR 

(R0>* 


011604 

022701 

001776 


CNP 

#1776,R1 

.•CHECK FOR VECTOR END 

011610 

001371 



BNE 

1$ 


011612 

000411 



BR 

ENDTRP 

.-RETURN IN STAND ALONE NODE 

011614 

012701 

000204 


APTVEC : NOV 

#204. R1 

STARTING VECTOR ADDRESS 

011620 

012721 

011734 


1$: NOV 

#TRPOUT. (RD* 

; I LL INTERRUPT ROUTINE 

011624 

012721 

000340 


NOV 

#340. <R1)* 

;PSW NEXT 

011630 

022701 

002000 


CNP 

#2006.R1 

.•DONE? 

011634 

001371 



BNE 

1$ 

;D0 NEXT VECTOR 

011636 

012601 



ENDTRP: NOV 

(SP)*,R1 


011640 

012600 



NOV 

(SP>+, RO 


011642 

000205 



RTS 

R5 

.•EXIT 





.•INTERRUPT SERVICE ROUTINE USED 

TO VERIFY INTERRUPTS 204-1774 

011644 

005237 

002436 


INTSR1: INC 

INTFLG 

; COUNT INTERRUPT 

011650 

012737 

000001 

002124 

NOV 

#1 ,$GDDAT 

.•STORE EXPECTED 

011656 

013737 

002436 

002126 

NOV 

INTFLG. $BDDAT 

;SAVE INT. COUNT 

011664 

023737 

002124 

002126 

CNP 

$GDDAT,$6DDAT 

.’SHOULD BE ONE INTERRUPT 

011672 

001401 



BEQ 

1$ 
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1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 
11% 

1197 

1198 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 


>11 10-AUG-81 10:52 

011674 104013 
011676 000002 
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ERROR 13 
RTI 


.•MULTIPLE INTERRUPTS RECEIVED 
.•RETURN FROM INT. 


011700 005237 002436 
011704 013737 002472 002124 
011712 013737 002436 002126 
011720 023737 002124 0021 26 
011726 002001 
011730 104013 

011732 000002 


011734 011637 002120 
011740 004537 011374 
011744 104014 
01 1 746 000000 
011750 000000 


011752 011637 002120 
011756 104014 
011760 000002 


011762 022737 000001 002210 
011770 001405 
011772 012723 012170 
011776 012713 000340 
012002 000404 
012004 012723 011734 

012010 012713 000340 
012014 062737 000004 002452 
012022 000205 


012024 010046 

012026 017737 170106 002460 
012034 022737 000001 002210 
012042 001411 
012044 005000 
012046 012720 012170 
012052 012720 000340 
012056 022700 000204 
012062 001371 
012064 000410 
012066 005000 
012070 012720 011734 
012074 012720 000340 
012100 022700 000204 


.•INTERRUPT SERVICE ROUTINE USED TO VERIFY INTERRUPTS 204-1774 
•FOR A BYTE COUNT OF 1 TO 4 VECTORS IN VECTOR ADDR MEMORY. 


INT8Y4: INC INTFLG 

NOV BYNUM. SGDDAT 

MOV INTFLG. SBDDAT 

CMP SGDDAT. SBDDAT 

BGE IS 

ERROR 13 


.•COUNT INTERRUPT 
.•STORE EXPECTED 
.-SAVE INT. COUNT 

.•INTERRUPTS SHOULD NOT EXCEED BYTE COUNT 

.•MULTIPLE INTERRUPTS RECEIVED 
.•MORE INTERRUPTS THAN BYTE COUNT 
.•RETURN FROM INT. 


.•COMMON ILLEGAL VECTOR RETURN ROUTINE FOR APT MODE. 

TRPOUT : MOV (SP).SGDADR .‘SAVE ADDRESS OF TEST 

JSR R5.FRMBUF .-RETURN LOCATIONS 0-202 

ERROR 14 .-ILLEGAL VECTOR ADDR MEM ERROR 

HALT .-CANNOT CONTINUE 

HALT .’CANNOT CONTINUE 

.•COMMON ILLEGAL VECTOR RETURN ROUTINE FOR VECTOR AREA 

.-204-1774 

TRPALL: MOV (SP).SGDADR ;SAVE PC OF TEST 

ERROR 14 .-ILLEGAL VECTOR ADDR MEM ERROR 

RTI .-RETURN 

.•RESTORE VECTOR JUST TESTED TO ERROR SUBROUTINE FOR 0-202 


RES200 


#1 ,SENV 
IS 

#TRP200.(R3>* 
#340. <rS) 

2S 

#TRP0UT.<R3» 

#340. (R3) 
#4,V£CL0C 
R5 


CHECK FOR APT 
YES. BRANCH 

ERROR TRAP SUB. FOR 0-200 

PSU 

RETURN 

RESTORE APT SUB TRAP 
IF ON APT 
RESTORE PSU SAVE 
UPDATE FOR NEXT VECTOR 
RETURN 


.•ROUTINE TO SET UP TRAP SUBROUTINE 0-200 IN STANDALONE MODE OR 
;A COMMON ERROR VECTOR ROUTINE SETUP UNDER APT. 


CAT200: MOV 
MOV 
CMP 
BEQ 
CLR 

IS: MOV 

MOV 
CMP 
BNE 
BR 

APT200: CLR 

IS: MOV 

MOV 
CMP 


RO.-(SP) 
BSUR.SURSAV 
#1 ,SENV 
APT200 
RO 

#TRP200.(R0>* 
#340.(R0)+ 
#204. RO 
IS 

END200 

RO 

#TRPOUT.(RO>* 
#340, <r6>* 
#204. RO 


SAVE RO 

SAVE LOCATION 176.S0FT SUR 
CHECK FOR APT 
YES.SET UP TRAPS FOR APT 
START CATCHER SUB AT 0 
STORE VECTOR TRAP SUBROUTINE 
PSU 

FINISHED 0-202 

RETURN IN STAND ALONE MODE 
START AT VECTOR 0 
VECTOR ERROR ROUTINE 
PSU NEXT 
DONE? 
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SEQ 0042 


1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 
12 94 

i >9*. 


012104 

012106 

012110 

012114 

012122 


012124 

012130 

012136 

012144 

012152 

012154 

012160 

012162 

0 1 2166 


012170 

012174 

012200 

012202 

012206 


012210 

012214 

012216 

012222 

012230 

012232 

012234 


001371 

012713 

012763 

000205 


005237 

013737 

013737 

023737 

002005 

004537 

104013 

004537 

00000? 


011637 

004537 

104014 

004537 

000002 


017624 

005726 

005237 

022737 

002001 

104013 

000002 


012124 

000340 


002436 

002472 

002436 

002124 

011374 


012024 


002120 

011374 

012024 


000000 

002436 

000100 


000002 


BNE 

END200: MOV 
MOV 
MOV 
RTS 


1$ 

(SP>*. RO 

#INTSR3,(R3) 

#340.2(R3) 

R5 


;D0 NEXT VECTOR 

.'STORE VECTOR ROUTINE 

.•STORE PSU 

.'EXIT 


; INTERRUPT SERVICE ROUTINE USED TO VERIFY INTERRUPTS 0-200.8YTE COUNT 0-3 
•FOR BYTE COUNTS OF 1 TO 4 VECTORS IN VECTOR ADDRESS MEMORY. 


002124 

002126 

002126 


INC 
MOV 
MOV 
CMP 
BGE 
JSR 
ERROR 

JSR 

RTI 


INTFLG 
BYNUM. SGDDAT 
INTFLG, SBDDAT 
SGDDAT. SBDDAT 
1$ 

R5.FRMBUF 

13 

R5.CAT200 


002436 


INTSR3: INC INTFLG .'COUNT INTERRUPT 

* STORE EXPECTED 

SAVE INT COUNT 

INTERRUPTS SHOULD NOT EXCEED BYTE COUNT 

RESTORE 0-202 BEFORE ERROR 
MULTIPLE INTERRUPTS RECEIVED 
MORE INTERRUPTS THAN BYTE COUNT 
RESTORE VECTOR SUBROUTINES 
1$: RTI .-RETURN FROM INT. 

.'COMMON ILLEGAL VECTOR ERROR RETURN ROUTINE FOR 0-200 
TRP200: MOV (SP).SGDADR .'SAVE PC OF TEST 

JSR R5.FRMBUF .-RETURN LOC 0-200 

ERROR 14 .'ILLEGAL VECTOR ADDR MEM ERROR 

JSR R5.CAT200 .'RESTORE VECTOR SUBROUTINES FOR PROCEED 

RTI .'RETURN 

.•VECTOR SERVICE ROUTINE FOR VECTOR UNIQUENESS TEST 

•SETVEC: MOV (R5)*.(R4)+ .'STORE VALUE IN BUFFER 

a(SP).(R4)* ; STORE VECTOR NUMBER IN BUFFER 

<SP)« .'RESTORE STACK FOR RTI 

INTFLG .'COUNT INTERRUPT 

#64.. INTFLG 

1$ ;64 EXPECTED INTERRUPTS? 

13 .-ERROR .MORE THAN 64 INTERRUPTS 

.•RETURN FOR NEXT INTERRUPT 


SETVEC: 


IS: 


MOV 

TST 

INC 

CMP 

BGE 

ERROR 

RTI 


; ; GPA 
; ; GPA 


INTERRUPT SERVICE ROUTINES THAT ARE STORED FROM 300-674 
IN THE VECTOR UNIQUENESS TEST. „ 

R5 POINTS TO “SETVEC:** DURING TESTS 5 AND 
CHANGED FROM “JSR R5.SETVEC TO "JSR PC,(R 


6. AND CALLS 
l5f" TO CONSERVE 


012236 

004715 

INTO: 

JSR 

012240 

000300 


300 

012242 

004715 

INTI: 

JSR 

012244 

000304 


304 

012246 

004715 

INT2: 

JSR 

012250 

000310 


310 

012252 

004715 

INT3: 

JSR 

012254 

000314 


314 

012256 

004715 

INT4: 

JSR 

012260 

000320 


320 

012262 

004715 

INT5: 

JSR 

012264 

000324 


324 

012266 

004715 

INT6: 

JSR 

012270 

000330 


330 


IVIHL rnwunm wiik « 

PC.CR5) .STORE 300 INTO VBUF.TO BE ___ 
.'CHECKED AFTER ALL INTERRUPTS. 
PC,(R5) .'VECTOR UNIQUENESS TEST. INT. SERV RTN 

PC, (R5) ; VECTOR UNIQUENESS TcST, INT. SERV RTN 

PC, (R5) .'VECTOR UNIQUENESS TEST, INT. SERV RTN 

PC.CR5) .VECTOR UNIQUENESS TEST. INT. SERV RTN 

PC, (R5) .'VECTOR UNIQUENESS TEST, INT. SERV RTN 

PC, (R5) ; VECTOR UNIQUENESS TEST. INT. SERV RTN 


GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 



.VURDtt DRV 1 1 J DiAG TST PP12 
CVDRDB.Pn 10-AUG-81 10:52 


1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 
1545 

1346 

1347 

1348 

1349 

1350 
*^1 


012272 
012274 
01 2276 

01 23te 

012312 
012314 
012316 
012320 
012322 
012324 
012326 
012330 
012332 
012334 
012336 
012340 
012342 
012344 
012346 
012350 
012352 
012354 
012356 
012360 
012362 
012364 
012366 
012370 
012372 
012374 
012376 
012400 
012402 
012404 
012406 
012410 
012412 
012414 
012416 
012420 
012422 
012424 
012426 
012430 
Cl 2432 
012434 
012436 
012440 
012442 
012444 
012446 
012450 


004715 

000334 

004715 

000340 

004715 

000344 

004715 

000350 

004715 

000354 

004715 

000360 

004715 

000364 

004715 

000370 

004715 

000374 

004715 

000400 

004715 

000404 

004715 

000410 

004715 

000414 

004715 

000420 

004715 

000424 

004715 

000430 

004715 

000434 

004715 

000440 

004715 

000444 

004715 

000450 

004715 

000454 

004715 

000460 

004715 

000464 

004715 

000470 

004715 

000474 

004715 

000500 

004715 

000504 

004715 

000510 
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INT7: 


PC. (R5) .-VECTOR 

INT8: 

JSR 

340 

JSR 

344 

JSR 

350 

JSR 

354 

JSR 

360 

PC, (R5) .-VECTOR 

INT9: 

PC,(R5) .-VECTOR 

INT10: 

PC.(R5) .-VECTOR 

INT1 1 : 

PC, (R5) .-VECTOR 

INTI 2 : 

PC.(RS) .-VECTOR 

INTI 3: 

JSR 

364 

JSR 

370 

JSR 

374 

JSR 

400 

PC,(R5) ; VECTOR 

INT14: 

PC.CR5) .-VECTOR 

INTI 5 : 

PC.CR5) ; VECTOR 

INTI 6: 

PC. (R5) ; VECTOR 

INTI 7: 

JSR 

404 

PC. (R5) ; VECTOR 

INTI 8: 

JSR 

410 

PC.CR5) .-VECTOR 

INTI 9: 

JSR 

4H 

PC.CR5) ; VECTOR 

INT20: 

JSR 

420 

PC.CR5) .-VECTOR 

INT21 : 

JSR 

424 

JSR 

430 

JSR 

434 

PC.CR5) .-VECTOR 

INT22: 

PC, (R5) ; VECTOR 

INT23: 

PC.CR5) ; VECTOR 

INT24: 

JSR 

440 

PC.CR5) .-VECTOR 

INT25: 

JSR 

444 

PC.CR5) .-VECTOR 

INT26: 

JSR 

450 

JSR 

454 

PC.CR5) .-VECTOR 

INT27: 

PC.CR5) ; VECTOR 

INT28: 

JSR 

460 

PC.CR5) ; VECTOR 

INT29: 

JSR 

464 

JSR 

470 

PC, (R5) .VECTOR 

INT30: 

PC.CR5) .-VECTOR 

INT31 : 

JSR 

474 

PC. (R5) ; VECTOR 

INT32: 

JSR 

500 

PC.CR5) .-VECTOR 

INT33: 

JSR 

504 

PC, (R5) .-VECTOR 

INT34: 

JSR 

510 

PC,(R5) ; VECTOR 


UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST. INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 
UNIQUENESS TEST, INT. SERV RTN ;;GPA 


SEO 0043 


^VDRDe DRVllJ D1AG T ST PRT2 
CVDRDB.P11 1 O-AUG-81 10:52 


HACY11 30611063) 1 O-AUG-81 11:00 PAGE 2-21 

PROGRAM SUBROUTINES 


SEQ 0044 


1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 


012452 

0124S4 

012456 

012460 

012462 

012464 

012466 

012470 

012472 

012474 

012476 

012500 

012502 

012504 

012506 

012510 

012512 

012514 

012516 

012520 

012522 

012524 

012526 

012530 

012532 

012534 

012536 

012540 

012542 

012544 

012546 

012550 

012552 

012554 

012556 

012560 

012562 

012564 

012566 

012570 

012572 

012574 

012576 

012600 

012602 

012604 

012606 

012610 

012612 

012614 

012616 

012620 

012622 

012624 

012626 

012630 


004715 

000514 

004715 

000520 

004715 

000524 

004715 

000530 

004715 

000534 

004715 

000540 

004715 

000544 

004715 

000550 

004715 

000554 

004715 

000560 

004715 

000564 

004715 

000570 

004715 

000574 

004715 

000600 

004715 

000604 

004715 

000610 

004715 

000614 

004715 

000620 

004715 

000624 

004715 

000630 

004715 

000634 

004715 

000640 

004715 

000644 

004715 

000650 

004715 

000654 

004715 

000660 


000664 

004715 

000670 


INT35: JSR 
514 

INT36: JSR 
520 

INT37: JSR 
524 

INT38: JSR 
530 

INT39: JSR 
534 

INT40: JSR 
540 

INT41 : JSR 
544 

INT42: JSR 
550 

INT43: JSR 
554 

INT44: JSR 
560 

INT45: JSR 
564 

INT46: JSR 
570 

INT47: JSR 
574 

INT48: JSR 
600 

INT49: JSR 
604 

INT50: JSR 
610 

INT51 : JSR 
614 

1NT52: JSR 
620 

INT53: JSR 
624 

INT54: JSR 
630 

INT55: JSR 
634 

INT56: JSR 
640 

INT57: JSR 
644 

INT58: JSR 
650 

INT59: JSR 
654 

INT60: JSR 
660 

INT61 : JSR 
664 

INT62: JSR 
670 


PC,(R5) .-VECTOR UNIQUENESS TEST. INT. SERV RTN ;;GPA 
PC, (R5) .-VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
PC. (R5) .-VECTOR UNIOUENESS TEST, INT. SERV RTN ;;GPA 
PC.(R5> ; VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
PC,(R5> .VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
PC, (R5) ; VECTOR UNIQUENESS TEST. INT. SERV RTN ;;GPA 
PC, CR5) .-VECTOR UNIQUENESS TEST. INT. SERV RTN ;;GPA 
PC, (R5) .VECTOR UNIQUENESS TEST. INT. SERV RTN ;;GPA 
PC, (R5) .VECTOR UNIQUENESS TEST. INT. SERV RTN ;;GPA 
PC,(R5) .-VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
PC, (R5) .-VECTOR UNIQUENESS TEST. INT. SERV RTN ;;GPA 
PC.(R5> .-VECTOR UNIQUENESS TEST. INT. SERV RTN ;;GPA 
PC, (R5) .VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
PC,(R5> .VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
PC.CR5) .’VECTOR UNIQUENESS TEST. INT. SERV RTN ;;GPA 
PC,(R5) .-VECTOR UNIQUENESS TEST, INT. SERV RTN ; ; GPA 
PC.(R5> .-VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
PC, (R5) .-VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
PC, (R5) .-VECTOR UNIQUENESS TEST. INT. SERV RTN ;;GPA 
PC.CR5) .-VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
PC.(R5) .VECTOR UNIQUENESS TEST. INT. SERV RTN ;;GPA 
PC,(R5) .VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
PC.(R5) .-VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
PC.CR5) .VECTOR UNIQUENESS TEST. INT. SERV RTN ;;GPA 
PC.CR5) .-VECTOR UNIOUENESS TEST, INT. SERV RTN ;;GPA 
PC,(R5) ; VECTOR UNIQUENESS TEST. INT. SERV RTN ;;GPA 
PC,(R5> .-VECTOR UNIQUENESS TEST, INT. SERV RTN ;;GPA 
PC.(R5) ; VECTOR UNIQUENESS TEST, INT. SERV RTN .-.GPA 


I 


CVDRDB ORVUJ OIAG TST PRT2 
CVDRDB.P1 1 10-AUG-81 10:52 
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PROGRAM SUBROUTINES 


G 4 

11:00 PAGE 2-22 


1408 

1409 

1410 

1411 
141 

141 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 
14 

142 

1424 

1425 

1426 

1427 

1428 


012632 

012634 


004715 

000674 


INT63: 


JSR 

674 


PC, (R5) .VECTOR UNIQUENESS TEST. INT. SERV RTN ;;GPA 


012636 

012640 

012642 

012644 

012646 

012650 

012652 

012654 

012656 


001 

002 

004 

010 

020 

040 

100 

200 

000000 


376 

375 

373 

367 

357 

337 

277 

177 


S8TTL PATTERNS FOR REGISTER R/U 

PATTERNS USED FOR LOADING/READING REGISTERS 
ISR INTERRUPT SERVICE REGISTER 

IRR INTERRUPT REQUEST REGISTER 

INR INTERRUPT MASK REGISTER 


BGCHP3: .BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

EDCHP3: 000000 


1,376 

2.375 

4.373 

1 6,367 

20.357 

40.337 

106,277 

200.177 


SEQ 0045 


CVDRD8 DRV11J 
CVDRDB.P1 1 


1430 

1431 

1432 
( 1 ) 
( 2 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
< 1 > 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
(1) 
( 1 ) 
( 1 ) 
(1) 
( 1 ) 
( 1 ) 
(1) 
( 1 ) 
( 1 ) 
(1) 
(1) 
(1) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 


DIAG TST PRT2 
1 O-AUG-81 10:52 


012660 

012664 

012666 

012670 

012672 

012674 

012700 

012706 

012710 

012716 

012720 


105737 
100002 
000000 
000430 
010046 
017600 
122737 
001011 
132737 
001405 
010037 
004737 
000000 
132737 
001003 
112046 
001005 
005726 
012600 
062716 
000002 
122716 
001430 
122716 
001 006 
005726 
104401 


H 4 
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SYSAAC ROUTINES 

.S8TTL SYSAAC ROUTINES 

.S8TTL TYPE ROUTINE 


3EQ 0046 


002157 


000002 

000001 

000100 

012730 

013222 

000040 


000002 

000011 

000200 


•ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 

•THE ROUTINE UILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

•N0TE1: SHULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


(FILLS CONTAINS 
SFILLC CONTAINS 


•NOTE 
•NOTE 

•CALL: 

•1) USING A TRAP INSTRUCTION 

• TYPE .MESADR 

•OR 

• TYPE 

• MESADR 


THE NUMBER OF FILLER CHARACTERS REQUIRED. 
THE CHARACTER TO FILL AFTER. 


; .‘MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


STYPE: 


IS: 


002210 

002211 


61S: 

002211 62S: 


2 $: 


60S: 

3S: 

4S: 


TST8 

BPL 

HALT 

BR 

NOV 

MOV 

CAPS 

BNE 

BITB 

BEQ 

MOV 

JSR 

.WORD 

BITB 

BNE 

MOVB 

BNE 

TST 

MOV 

ADD 

RTI 

CAPS 

BEQ 

CAPS 

BNE 

TST 

TYPE 


STPFLG 

IS 

3S 

RO.-(SP) 
i2(SP) ,R0 
#APTENV.SENV 
62S 

f APT SPOOL .SENVM 
62S 

R0.61S 

PC.SATY3 

0 

f APT C SUP, SENVM 
60S 

(RO)+,-(SP) 

4$ 

(S P)* 

<SP)*,RO 
#2.( SP) 

fHT.CSP) 

8$ 

#CRLF,(SP) 

5S 

(SP)* 


(1) 

013000 

002165 

105037 



SCRLF 


(1) 

013002 

013210 


CLRB 

SCHARCNT 

(1) 


000755 



BR 

2$ 

(1) 

013010 

004737 

013072 

5$: 

JSR 

PC.STYPEC 

(1) 

013014 

123726 

002156 

6S: 

CMPB 

SFILLC, (SPH 

(1) 

(1) 

013020 

013022 

001350 

013746 

002154 


BNE 

MOV 

2$ 

SNULL.-(SP) 

(1) 




7$: 



61) 

013026 

013032 

105366 

000001 

DECB 

1 (SP) 

(1) 

002770 



BLT 

6$ 


IS THERE A TERMINAL? 

BR IF YES 

HALT HERE IF NO TERMINAL 

LEAVE 

SAVE RO 

GET ADDRESS OF ASCIZ STRING 
RUNNING IN APT MODE 
NO, 60 CHECK FOR APT CONSOLE 
SPOOL MESSAGE TO APT 
N0.60 CHECK FOR CONSOLE 
SETUP MESSAGE ADDRESS FOR APT 
SPOOL MESSAGE TO APT 
MESSAGE ADDRESS 
APT CONSOLE SUPPRESSED 
YES, SKIP TYPE OUT 

PUSH CHARACTER TO BE TYPED ONTO STACK 

BR IF IT ISN'T THE TERMINATOR 

IF TERMINATOR POP IT OFF THE STACK 

RESTORE RO 

ADJUST RETURN PC 

RETURN 

BRANCH IF <HT> 

BRANCH IF NOT <CRLF> 

POP <CRXLF> EQUIV 
TYPE A CR AND LF 

CLEAR CHARACTER COUNT 
GET NEXT CHARACTER 
GO TYPE THIS CHARACTER 
IS IT TIME FOR FILLER CHARS.? 

IF NO 60 GET NEXT CHAR. 

GET f OF FILLER CHARS. NEEDED 
AND THE NULL CHAR. 

DOES A NULL NEED TO BE TYPED? 

BR IF NO— GO POP THE NULL OFF OF STACK 


CVDRD6 DRV11J 
CVDRD8.P11 


(1) 

(1) 

( 1 ) 

(1) 

(1) 

(1) 

( 1 ) 

Cl) 

n> 

ci) 

(1) 
<1) 
(1) 
( 1 ) 
(1) 
(1) 
(1) 
( 1 ) 
(1) 
(1) 
(1) 
(1) 
(1) 
( 1 ) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 

1433 

(1) 

(2) 
(1) 
( 1 ) 
(1) 
(1) 
(1) 
(3) 
(3) 
(1) 
( 1 ) 
( 1 ) 
m 


DIAG TST PRT2 
1 0- AUG-81 10:52 

013034 004737 013072 
013040 105337 013210 
013044 000770 


RACY11 306(1063) 10-AUG-81 11:00 

TYPE ROUTINE 


I 4 
PA6E 


2-24 


013046 

013052 

013056 

013064 

013066 

013070 

01307? 

013072 

013076 

013100 

013104 

013110 

013114 

013116 

013116 

013122 

013124 

013130 

013134 

013140 

013142 

013142 

013144 

013144 

013150 

013152 

013160 

013166 

013170 

013174 

013176 

013204 

013206 

013210 

013212 


013214 

013222 

013230 

013232 

013240 

013240 

013242 

013244 

013250 

013252 

013260 


112716 

004737 

132737 

001372 

005726 

000724 

105777 

100022 

017746 

042716 

122716 

001012 

105777 

100375 

117716 

042716 

122716 

001366 

005726 

105777 

100375 

116677 

122766 

001003 

105037 

000406 

122766 

001402 

105227 

000000 

000207 


JSR 

DECS 

BR 


PC, STYPEC 

JCHARCNT 

7$ 


; HORIZONTAL TAB PROCESSOR 


000040 

8$: NOVB 

»' AS P) 

PC. STYPEC 

013072 

9$: JSR 

000007 013210 

BITB 

#7, SCHARCNT 

BNE 

9$ 


TST 

ISP)* 


BR 

STYPEC: 

2$ 

167046 

TSTB 

BSTKS 

BPL 

10S 

167042 

NOV 

aSTKB.-(SP) 

#177660,(SP) 

177600 

BIC 

000023 

CNPB 

#$XOFF , (SP) 

BNE 

102S 


101S 


167022 

TSTB 

BSTKS 

BPL 

101S 

167016 

NOVB 

8STKB.CSP) 

#1 77600. (SP) 

177600 

BIC 

000021 

CNPB 

JSXON.(SP) 

BNE 

102S: 

101S 


TST 

<SPH 




10S: 


167000 


TSTB 

BSTPS 


BPL 

10S 

000002 

166772 

NOVB 

2<SP),aSTPB 

000015 

000002 

CNPB 

#CR.2(SP) 


BNE 

IS 

013210 


CLRB 

SCHARCNT 


BR 

STYPEX 

000012 

000002 

IS: CNPB 

#LF.2(SP> 

BEO 

STYPEX 



INCB 

<PC) + 



SCHARCNT : .WORD 

0 



STYPEX: RTS 

PC 


;;G0 TYPE A NULL 
; ; DO NOT COUNT AS A COUNT 
; ; LOOP 


.-.REPLACE TAB WITH SPACE 
.-.-TYPE A SPACE 
; .-BRANCH IF NOT AT 
• • TAA ctnp 

; ;P0P SPACE OFF STACK 
; ; GET NEXT CHARACTER 

.-.-CHAR IN KYBD BUFFER? 

;;BR IF NOT 
.-.-GET CHAR 

; .-STRIP EXTRANEOUS BITS 
;;WAS CHAR XOFF 
;;BR IF NOT 

.-.-WAIT FOR CHAR 

.-.-GET CHAR 
.-.-STRIP IT 
.-.-WAS IT XON? 

;;BR IF NOT 

;;FIX STACK 

.-.-WAIT UNTIL PRINTER IS READY 

;;LQAD CHAR TO BE TYPED INTO DATA REG. 
;;IS CHARACTER A CARRIAGE RETURN? 
;;8RANCH IF NO 

;; YES-CLEAR CHARACTER COUNT 
.-.-EXIT 

; ; IS CHARACTER A LINE FEED? 

; .-BRANCH IF YES 
;; COUNT THE CHARACTER 
;; CHARACTER COUNT STORAGE 


.S8TTL APT CONNUNI CATIONS ROUTINE 


112737 000001 013460 lATYl: ROVB 
112737 000001 013456 SATY3: N0V8 


000403 

112737 000001 013460 SATY4: 


010046 

010146 

105737 013456 
001450 

122737 000001 002210 
001031 


SATYC: 


BR 
NOVB 

NOV 

NOV 

TSTB 

BEO 

CNP6 

BNE 


R1.SFFLG 
#1 ,$NFLG 
SATYC 
fl.SFFLG 

RO.-(SP) 

RI.-(SP) 

S4VLG 

5$ 

JAPTENV.SENV 

3$ 


;;T0 REPORT FATAL ERROR 
;;T0 TYPE A NESSAGE 

;;T0 ONLY REPORT FATAL ERROR 

.-.-PUSH RO ON STACK 
.-.-PUSH R1 ON STACK 
;. -SHOULD TYPE A NESSAGE? 

;;IF NOT: BR 
; .-OPERATING UNDER APT? 

;;IF NOT: BR 


NJD001 

HJD001 

NJD001 

HJD001 

NJD001 

NJD001 

NJD001 

NJD001 

HJD001 

NJD001 

NJD001 

NJD001 

NJD001 

MJD001 

NJD001 

NJD001 

.-NJD001 


VDRD8 DR V 1 1 J 
CVDRD8.P1 1 


DIAG T ST PRT2 
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APT CQMMUNI CATIONS ROUTINE 


SEO 0048 


(1) 

(1) 

( 1 ) 

(1) 

(1) 

( 1 ) 

(1) 


mi 

013272 

013276 

013304 

013310 

013312 


132737 

001425 

017600 

062766 

005737 

001375 

010037 


000100 

000004 

000002 

002170 

002204 


002211 

000004 


1 $: 


2S: 


BITS 

BEO 

MOV 

ADD 

TST 

BNE 

NOV 

TSTB 


(1) 

6i5525 

001376 




BNE 

(1) 

013322 

163700 

002204 



SUB 

(1) 

013326 

006200 




ASR 

(1) 

013530 

010037 

002206 



MOV 

(1) 

013334 

012737 

000004 

002170 


MOV 

(1) 

013342 

000413 




BR 

(1) 

013344 

017637 

000004 

013370 

3$: 

MOV 

(1) 

013352 

062766 

000002 

000004 


ADD 

(3) 

013360 

013746 

177776 



MOV 

(1) 

013364 

004737 

012660 



JSR 

(1) 

013370 

000000 



4$: 

.WORD 

(1) 

013372 




5$: 


(1) 

013372 

105737 

013460 


10$: 

TSTB 

(1) 

013376 

001416 




BEQ 

(1) 

013400 

005737 

002210 



TST 

(1) 

013404 

001413 




BEQ 

(1) 

013406 

005737 

002170 


11$: 

TST 

(1) 

013412 

001375 




BNE 

(1) 

013414 

017637 

000004 

002172 


MOV 

(,) 

013422 

062766 

000002 

000004 


ADD 

(1) 

013430 

005237 

002170 



INC 

(1) 

01343; 

105037 

013460 


12$: 

CLR8 

(1) 

01 3440 

105037 

013457 



CLRB 

(1) 

013444 

105037 

013456 



CLRB 

(3) 

013450 

012601 




MOV 

(3) 

013452 

012600 




MOV 

(1) 

013454 

000207 




RTS 

(1) 

013456 

000 



$MFLG: 

.BYTE 

(1) 

013457 

000 



$LFLG: 

.BYTE 

(1) 

013460 

000 



$FFLG: 

•BYTE 

(1) 


013462 




.EVEN 

(1) 


000200 



APT SIZE =200 

(1) 


000001 



APTENV=001 

(1) 


000100 



APT SPOOL =100 

(1) 


000040 



APTCSUP=040 


#APT5P00L ,$ENVM 
3$ 

d4(SP) ,R0 

#2.4(SP) 

SNS6TYPE 

1$ 

RO.SMSGAD 

(RO)* 

2$ 

SNSGAD.RO 

RO 

RO.SMSGLGT 

#4,$MSGTYPE 

5$ 

B4(SP) ,4S 
#2.4 (SP) 
177776.-(SP) 
PC.STYPE 
0 

SFFLG 

12S 

$ENV 

12S 

SW5GTYPE 

IIS 

B4(SP) ,$FATAL 
#2.4 (SP) 
SMSGTYPE 
SFFLG 
SLFLG 
SNFLG 
(SP)*.R1 
(SP)*.RO 
PC 
0 
0 
0 


;;SHOULD SPOOL MESSAGES? 

; ; IF NOT: BR 
;;GET MESSAGE ADDR. 

; ;SUNP RETURN ADDR. 
;;SEE IF DONE U/ LAST XMISSION? 
; ; IF NOT: UAIT 
;;PUT ADDR IN MAILBOX 
;;FIND END OF MESSAGE 

;;SUB START OF MESSAGE 
;;GET MESSAGE LNGTH IN WORDS 
;;PUT LENGTH IN MAILBOX 
;;TELL APT TO TAKE MSG. 

;;PUT MSG ADDR IN JSR LINKAGE 
;;8UMP RETURN ADDRESS 
;;PUSH 177776 ON STACK 
; ; CALL TYPE MACRO 


.‘SHOULD REPORT FATAL ERROR? 
;IF NOT: BR 
.‘RUNNING UNDER APT? 

‘IF NOT* BR 
; FINISHED LAST MESSAGE? 

;IF NOT: WAIT 
.‘GET ERROR # 

:;8UNP RETURN ADDR. 
.‘TELL APT TO TAKE ERROR 
.‘CLEAR FATAL FLAG 
.'CLEAR LOG FLAG 
.'CLEAR MESSAGE FLAG 
;POP STACK INTO R1 
;POP STACK INTO RO 
; RETURN 
;MESS6. FLAG 
;LOG FLAG 
.‘FATAL FLAG 


1434 

(1) 

( 2 ) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 

< 1 > 

( 1 ) 

<1> 


•S8TTL BINARY TO OCTAL (ASCII) AND TYPE 


•THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
•OCTAL (ASCII) NUMBER AND TYPE IT. 

•STYPOS — ENTER HERE TO SETUP SUPPRESS 2ER0S AND NUMBER OF DIGITS TO TYPE 
•CALL: 

• MOV NUM.-(SP) ; .‘NUMBER TO BE TYPED 

• TYPOS ; ; CALL FOR TYPEOUT 

• .BYTE N ; ;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

• .BYTE M ;;M=1 OR 0 

• ; ; 1 =TYPE LEADING 2ER0S 

• ;;0=SUPPRESS LEADING 2ER0S 



CVDRCB DRV11J 01 AG TST PRT2 
CVDR0B.P11 10-AUG-81 10:5 


-AUG-81 10:52 
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BINARY TO OCTAL (ASCII) AND TYPE 


SEQ 0049 


013462 

013466 

013474 

013500 

013504 

013506 

013514 

013522 

013530 

013532 

013534 

013536 

013542 

013544 

013550 

013554 

013560 

013564 

013566 

013570 

013572 

013574 

013576 

013600 

013602 

013604 

013610 

013612 

013616 

013620 

013622 

013624 

013626 

013632 

013636 

013642 

013646 

013652 

013654 

013656 

013660 

013662 

013664 

013666 


017646 
116637 
112637 
062716 
000406 
112737 
112737 
112737 
010346 
010446 
010546 
113704 
005404 
062704 
110437 
113704 
016605 
005003 
006105 
000404 
006105 
0061 05 
006105 
010503 
006103 
105337 
100016 
042703 
001002 
005704 
001403 
005204 
052703 
052703 
110337 
104401 
105337 
003347 
002402 
005204 
000744 
012605 
012604 
012603 


000000 

000001 013705 

013707 

000002 

000001 013705 

000006 013707 
000005 013704 


013707 

000006 

013706 

013705 

000012 


•STYPON ENTER HERE TO TYPE OUT WITH THE SANE PARAMETERS AS THE LAST 

•STYPOS OR STYPOC 

* CALL: NOV NUM.-(SP) ;; NUMBER TO BE TYPED 

* TYPON ; ; CALL FOR TYPEOUT 

•STYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

I CALL * MOV NUM.-(SP) ; .NUMBER TO BE TYPED 

* TYPOC ; ; CALL FOR TYPEOUT 

TYPOS: MOV 8(SP),-(SP) ;; PICKUP THE MODE 

M0V8 KSP). SOFILL ;;LOAD ZERO FILL SWITCH 

M0V8 (SP) ♦.SOMODE+1 ;;NUCER OF DIGITS TO TYPE 

ADD #2,(SP> ; .‘ADJUST RETURN ADDRESS 


013706 

177770 


000060 

000040 

013702 

013702 

013704 


;* MOV 

;• TYPOC 

NUM.-(SP) 

STYPOS: MOV 

B(SP).-(SP) 

M0V8 

KSP). SOFILL 

MO ¥8 

(SP) ♦,S0M0DE*1 

ADD 

#2,(SP) 

BR 

STYPON 

STYPOC: MOVB 

#1. SOFILL 

MOVB 

#6.S0M0DE+1 

STYPON: MOVB 

#5.S0CNT 

NOV 

R3.-(SP) 

NOV 

R4.-(SP) 

MOV 

R5.-(SP) 

MOVB 

SOMODE+1 ,R4 

NEG 

R4 

ADD 

#6.R4 

MOVB 

R4.S0M0DE 

MOVB 

SOFILL, R4 

MOV 

12(SP).R5 

CLR 

R3 

IS: ROL 

R5 

BR 

3$ 

2S: ROL 

R5 

ROL 

R5 

ROL 

R5 

MOV 

R5.R3 

3S: ROL 

R3 

DECB 

SOMODE 

BPL 

7S 

BIC 

#1 77770, R3 

BNE 

4S 

TST 

R4 

8EQ 

5S 

4S: INC 

R4 

BIS 

R'0.R3 

5S: BIS 

R ,R3 

R3.&S 

i0CNT 

NOVB 

TYPE 

7S: DEC® 

BGT 

2S 

BLT 

6S 

INC 

R4 

BR 

2S 

6S: MOV 

(SPH, R5 

MOV 

(SP)+»R4 

MOV 

(SP>*. R3 


;;SET THE ZERO FILL SWITCH 
;;SET F OR SIX(6) DIGITS 
;;SET THE ITERATION COUNT 
;;SAVE R3 
;;SAVE R4 
* 'SAVE R5 

;;GET THE NUMBER OF DIGITS TO TYPE 


; .-SUBTRACT IT FOR MAX. ALLOWED 
.-.-SAVE IT FOR USE 
;;GET THE ZERO FILL SWITCH 
; .-PICKUP THE INPUT NUMBER 
;; CLEAR THE OUTPUT WORD 
; .-ROTATE MSB INTO "C" 

; ; GO DO MSB 
.-.-FORM THIS DIGIT 


.-GET LSB OF THIS DIGIT 
.-TYPE THIS DIGIT? 

;BR IF NO 
.-GET RID OF JUNK 
.-TEST FOR 0 
.-SUPPRESS THIS 0? 

;BR IF YES 

.-DON'T SUPPRESS ANYMORE O'S 
.-MAKE THIS DIGIT ASCII 
.-MAKE ASCII IF NOT ALREADY 
.-SAVE FOR TYPING 
;G0 TYPE THIS DIGIT 
.-COUNT BY 1 
;BR IF MORE TO DO 
;8R IF DONE 

.-INSURE LAST DIGIT ISN'T A BLANK 
.-GO DO THE LAST DIGIT 
.-RESTORE R5 
.-RESTORE R4 
.-RESTORE R3 


013670 

016666 000002 

000004 

MOV 

013676 

013700 

012616 

000002 

8$: 

MOV 

RTI 

013702 

000 

.BYTE 

013703 

000 


.BYTE 

013704 

000 

SOCNT : 

.BYTE 

013705 

000 

SOFILL: 

.BYTE 

013706 

000000 

SOMODE * 
.SBTTL 

• •*****< 

.WORD 

CONVERT 


CVDRD6 0RV11J DIAG TST PRT2 
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(1) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

1435 

( 1 ) 

(2) 

(1) 

(1) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 3 ) 

( 3 ) 

( 3 ) 

( 3 ) 

( 3 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 
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BINARY TO OCTAL (ASCII) AND TYPE 


EG 0050 


2(SP) ,4(SP) 
(SP)*.(SP) 

0 
0 
0 
0 
0 


;;SET THE STACK FOR RETURNING 
* 'RETURN 

;; STORAGE FOR ASCII DIGIT 
;; TERMINATOR FOR TYPE ROUTINE 
; .'OCTAL DIGIT COUNTER 
;;ZERO FILL SWITCH 
.‘.'NUMBER OF DIGITS TO TYPE 


013710 
013710 
013712 
013714 
013716 
013720 
013722 
Cl 3726 
013732 
013734 
013736 
013744 
013746 
013752 
013756 
013760 
013764 
013766 
01 3770 
013772 
013774 
013776 
014 

Stt 

014 
01401 
01401 
0140f 

n* 

014 

su 

014 
014044 


010046 

010146 

010246 

010346 

010546 

012746 

016605 

100004 

005405 

112766 

005000 

012703 

112723 

005002 

016001 

160105 

002402 

005202 

000774 

060105 

005702 

001002 



CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


•THIS ROUTINE IS USED TO CHAN6E A 16-BIT BINARY NUMBER TO A 5-DIGIT 
•SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
•NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
•BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
•REPLACED WITH SPACES. 

•CALL: 

• MOV NUM.-(SP) 

• TYPDS 


STYPDS: 


020200 

000020 


000055 000001 


014124 

000040 

014114 


000001 

000060 

000040 


000010 


177777 


1 $: 


2 *: 

3$: 


4$: 


5$: 


6S: 

7$: 


;;PUT THE BINARY NUMBER ON THE STACK 
;;G0 TO THE ROUTINE 


MOV RO.-(SP) 

MOV RI.-(SP) 

MOV R2,-(SP) 

MOV R3.-(SP> 

MOV R5.-(SP) 

MOV #20200,-(SP) 

MOV 20(SP) ,R5 

BPL IS 

NEG R5 

M0V8 #’-.1(SP) 

CLR RO 

MOV /YSDBLK.R3 

MOVB #' .(R3H 

CLR R2 

MOV SDT8L(R0).R1 

SUB R1.R5 

BLT 4$ 

INC R2 

BR 3$ 

ADD R1.R5 

TST R2 

BNE 5$ 

TST8 (SP) 

BM1 7S 

ASLB (SP) 

BCC 6S 

MOVB 1 (SP). -1 <R3> 

BIS #’0.R2 

BIS #' ,R2 

MOVB R2,(R3)+ 

TST (RO)* 

CMP R0,#10 

BLT 2$ 

BGT 8$ 

MOV R5.R2 


.'PUSH RO ON STACK 

.'PUSH R1 ON STACK 

.'PUSH R2 ON STACK 

.'PUSH R3 ON STACK 

.'PUSH R5 ON STACK 

.'SET BLANK SWITCH AND SIGN 

.'GET THE INPUT NUMBER 

;BR IF INPUT IS POS. 

.-MAKE THE BINARY NUMBER POS. 

.'MAKE THE ASCII NUMBER NEG. 

.-ZERO THE CONSTANTS INDEX 

.•SETUP THE OUTPUT POINTER 

;SET THE FIRST CHARACTER TO A BLANK 

.•CLEAR THE BCD NUMBER 

.-GET THE CONSTANT 

.•FORM THIS BCD DIGIT 

;BR IF DONE 

.•INCREASE THE BCD DIGIT BY 1 

.-ADD BACK THE CONSTANT 
.‘CHECK IF BCD DIGIT=0 
.‘FALL THROUGH IF 0 
.-STILL DOING LEADING O'S? 

;BR IF YES 
;MSD? 

;BR IF NO 

; YES— SET THE SIGN 

.-MAKE THE BCD DIGIT ASCII 

.'MAKE IT A SPACE IF NOT ALREADY A DIGIT 

.-PUT THIS CHARACTER IN THE OUTPUT BUFFER 

.-JUST INCREMENTING 

.•CHECK THE TABLE INDEX 

;G0 DO THE NEXT DIGIT 

;G0 TO EXIT 

.-GET THE LSD 


n 4 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


CVDRD6 DRV11J DIAG TST PRT2 ^ 
CVDRDB.P11 10-AUG-81 10:52 


( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 3 ) 

( 3 ) 

( 3 ) 

( 3 ) 

( 3 ) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

1436 

(1) 

( 2 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 2 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 


m 

01405? 

014054 

014062 

014064 

« 

014072 

014074 

014076 

014102 

014110 

014112 

014114 

014116 

014120 

014122 

014124 


m 

10000 ’ 

lUtti 

012605 

012603 

012602 

012601 

012600 

104401 

016666 

012616 

000002 

023420 

001750 

000144 

000012 

000004 


014134 

014134 

014136 

014140 

014144 

014146 

014154 

014160 

014164 

014172 

014200 

014206 

014210 

014214 

014220 

014220 

014226 

014230 

014236 

014242 

014243 

014244 

014246 

014252 


177777 177776 


014124 

000002 


000004 


6$ 

(SP) + 

9$ 

-1 (SP) ,-2(R3) 
(R3) 

(SP)*,R5 
(SP)*,R3 
(SP)*,R2 
(SP)*,R1 
(SP)*, RO 
,$D8LK 
2(SP),4(SP) 
(SP)*, (SP) 


; ; GO CHANGE TO ASCII 
; ; WAS THE LSD THE FIRST NON-ZERO? 

* if no 

;;YES— SET THE SIGN FOR TYPING 

;;SET THE TERMINATOR 

;;POP STACK INTO R5 

;;POP STACK INTO R3 

;;POP STACK INTO R2 

;;POP STACK INTO R1 

;;POP STACK INTO RO 

;;NOW TYPE THE NUMBER 

; .-ADJUST THE STACK 

;; RE TURN TO USER 


BR 

8S: TSTB 

BPL 
MOVB 
9$: CLRB 

NOV 
NOV 
NOV 
NOV 
NOV 
TYPE 
NOV 
NOV 
RTI 

SDTBL: 10000. 

1000. 

100 . 

10 . 

CORI K • Rl KU 4 

•S8TTL ERROR HANDLER ROUTINE 

•*#*****************♦♦♦♦♦♦♦♦♦♦♦♦♦******************************* 
♦THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
♦AND GO TO SURCK ON ERROR 

♦THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

♦SU15=1 HALT ON ERROR 

*SW13=1 INHIBIT ERROR TVPEOUTS 

*SW09=1 LOOP ON ERROR 

♦CALL 

♦ ERROR 


N 





SERROR: 



104407 




CKSWR 

;G0 LOOK 

104407 




CKSUR 

105237 

002103 


7$: 

INCB 

$ERFLG 

001775 



8EQ 

7$ 

013777 

002102 

165766 


NOV 

$TSTNM,BDISPLAY 

005237 

002112 



INC 

SERTTL 

011637 

002116 



NOV 

(SP),$ERRPC 

#2,$ERRPC 

a$ERRPC,l?TENB 

162737 

000002 

002116 


SUB 

117737 

165720 

002114 


N0V8 

032777 

020000 

165732 


BIT 

fBIT13,aSWR 

001004 



8NE 

20$ 

004737 

014310 



JSR 

PC,SWRCr 

104401 

002165 


20$: 

TYPE 

,$CRLF 

122737 

000001 

002210 


CMP6 

#APTENV,$ENV 

001007 




BNE 

2$ 

113737 

002114 

014242 


MOVB 

$ITEMB,21$ 

004737 

013232 



JSR 

PC,$ATY4 

000 



21$: 

.BYTE 

0 

000 

0007V 



22$: 

.BYTE 

BR 

0 

22$ 

005777 

165666 


2$: 

TST 

BSUR 

100002 




BPL 

3$ 


;;ERROR>EMT AND TERROR ITEM NUMBER 


;TEST FOR CHANGE IN SOFT-SWR 
FOR SWR CHANGE 
:;SET THE ERROR FLAG 
DON'T LET THE FLAG GO TO ZERO 
;; DISPLAY TEST NUMBER AND ERROR FLAG 
: ; INC THE ERROR COUNT 
:;6ET ADDRESS OF ERROR INSTRUCTION 

;;STRIP AND SAVE THE ERROR ITEM CODE 

r ; SKIP TYPEOUT IF SET 

;;SKIP TYPEOUTS 

;;G0 TO USER ERROR ROUTINE 

.-RUNNING IN APT NODE 
.-NO.SKIP APT ERROR REPORT 
;SET ITEM NUMBER AS ERROR NUMBER 
; REPORT FATAL ERROR TO APT 


.-.-APT ERROR LOOP 
;;HALT ON ERROR 
;;SKIP IF CONTINUE 


SEO 0051 




CVDRDB DRV11J D1AG TST PRT2 
CVDRDB.P1 1 10- AUG-81 10:52 

(1) 014440 

(2) 014440 013046 

(2) 014442 104402 

(1) 014444 005710 

(1) 014446 001770 

(1) 014450 104401 014456 

(1) 014454 000771 

(1) 014456 020040 000 

(1) 014462 
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ERROR MESSAGE TYPE OUT ROUTINE 


SEQ 0053 


014462 

01446? 104407 
014464 032777 040000 
014472 001114 


014474 000416 


014476 

014502 

014510 

014514 

014520 

014522 

014524 

014530 

014532 

014532 

014540 

014542 

014550 

014552 

014556 

014560 

014566 

014570 

014576 


013746 

012737 

005737 

012637 

000463 

022626 

012637 

000423 

032777 

m 

m 

101015 

032777 

001404 

013737 


000004 

014522 

177060 

000004 


000004 


014614 

014620 

014622 

014630 


005037 

000415 

032777 

001011 


165446 


000004 


MOV 8(R0)*,-(SP) 
TYPOC 

TST (RO) 

BEQ 6S 

TYPE .8S 

BR 7$ 

8$: .ASCJZ / / 

.EVEN 

.S8TTL SCOPE HANDLER ROUTINE 


SAVE B(RO)+ FOR TYPEOUT 
GO TYPE— OCTAL ASCII (ALL DIGITS) 
IS THERE ANOTHER NUMBER? 

BR IF NO 

TYPE TW0<2) SPACES 
LOOP 

TW0(2) SPACES 


• *************************************************************** 

•THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
•AND LOAD THE TEST NUMBER (STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0» 
•AND LO*D THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

•SW1 4*1 LOOP ON TEST 

•SW11=1 INHIBIT ITERATIONS 

•SW09-1 LOOP ON ERROR 

•SW08-1 LOOP ON TEST IN SWR<7:0> 

•CALL 

• SCOPE ;;SCOPE=IGT 


000400 165400 
165372 002102 
002103 

002115 002103 

001000 165342 

002110 002106 

002103 

002160 

004000 165310 


(SCOPE: 

CKSWR 

1$: BIT 

BNE 

;#####START OF 
IXTSTR: BR 

NOV 

MOV 

TST 

MOV 

BR 

5S: CMP 

MOV 
BR 

6S:;#####END OF 
BIT 
BEO 
CMP6 
BEO 

2S: TSTB 

BEO 
CAPS 
BHI 
BIT 
BEO 

7$: MOV 

BR 

4$: CLRB 

CLR 
BR 

3$: BIT 

BNE 


«BIT14,aSUR 

(OVER 


#viwn m a > L-J if 

CODE FOR THE XOR t§STER##### 


.-TEST FOR CHANGE IN SOFT-SWR 
.•LOOP ON PRESENT TEST? 

;VES IF SW14=1 


B#ERRVEC,-(SP) 

A5J.MERRVEC 

a#1 >7060 

(SP) ♦.a#ERRVEC 

SSVLAD 

(SP) ^(SP)* 

(SP) +.a#ERRVEC 
7$ 

CODE FOR THE XOR 
#BIT08.aSU* 

2 $ 

iUR.STSTNM 

(OVER 

SERFLG 

3$ 

SERMAX. SERFLG 
3$ 

#8JT09,a$WR 

4S 

SLPERR.SLPADR 

(OVER 

SERFLG 

STINES 

IS 

fBITII.aSVR 

IS 


;IF RUNNING ON THE "XOR** TESTER CHANGE 
.-THIS INSTRUCTION TO A ’NOP" (N0P=240) 
.•SAVE THE CONTENTS OF THE ERROR VECTOR 
;SET FOR TIMEOUT 
.•TIME OUT ON XOR? 

.‘RESTORE THE ERROR VECTOR 

;G0 TO THE NEXT TEST 

.‘CLEAR THE STACK AFTER A TIME OUT 

.•RESTORE THE ERROR VECTOR 

.-LOOP ON THE PRESENT TEST 

TESTER#**## 

.•LOOP ON SPEC. TEST? 

;BR IF NO 

;0N THE RIGHT TEST? SWR<7:0> 

*BR IF YES 

•HAS AN ERROR OCCURRED? 

;BR IF NO 

.-MAX. ERRORS FOR THIS TEST OCCURRED? 

;BR IF NO 
.•LOOP ON ERROR? 

•Bit IF NO 

•SET LOOP ADDRESS TO LAST SCOPE 

.•ZERO THE ERROR FLAG 

.•CLEAR THE NUMBER OF ITERATIONS TO MAKE 

.•ESCAPE TO THE NEXT TEST 

.‘INHIBIT ITERATIONS? 

;8R IF YES 


CVDRDB DRV11J OIAG TST PRT2 
CVDRDB.P11 10-AUG-81 10:52 
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SCOPE HANDLER ROUT] <E 


(1) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 

1447 

( 1 ) 

( 2 ) 

( 1 ) 

( 1 ) 

( 2 ) 

( 1 ) 

P> 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 2 ) 

( 2 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 


014632 

014656 

014640 

014644 

014652 

014654 

014662 

014670 

014674 

014702 

014706 

014712 

014716 

014724 

014732 

014736 

014740 


005737 

001406 

m 

002024 
012737 
013737 
105237 
113737 
011637 
01 1637 
005037 
112737 
013777 
013716 
000002 
000001 


014742 

014750 

014752 

014756 

014760 

014764 

014770 

014774 

014776 

015004 

015006 

015012 

015016 

015022 

015024 

015030 

015032 

015034 

015040 

015042 

015046 


015052 

015056 

015060 


022737 

001074 

105777 

100071 

117746 

042716 

022726 

001062 

123727 

001456 

104401 

104401 

013746 

104402 

104401 

005046 

005046 

105777 

100375 

117746 

042716 


021627 

001005 

104401 


002176 

002104 

002160 

000001 

014740 

002102 

002102 

002106 

002110 

002162 

000001 

002102 

002106 


002104 

002104 

002160 

002174 


002115 

165210 


TST 

BEQ 

INC 

CMP 

BGE 

IS: NOV 

NOV 

SSVLAD: INCB 


NOVB 
NOV 
NOV 
CLR 
NOVB 

SOVER: NOV 
NOV 
RTI 

IMVfNT* 1 

.sbttl' tty input routine 


SPASS 

IS 

SICNT 

STINES, S1CNT 

SOVER 

#1, SICNT 

SNXCNT,STINES 

STSTNN 

STSTNN, STESTN 
(SP), SLPADR 
(SP), SLPERR 
SESCAPE 
#1 ,SERNAX 
STSTNN, BDISPLAY 
SLPADR, (SP) 


IF FIRST PASS OF PROGRAN 
INHIBIT ITERATIONS 
INCRENENT ITERATION COUNT 
CHECK THE NUNBER OF ITERATIONS HADE 
BR IF HORE ITERATION REQUIRED 
REINITIALIZE THE ITERATION COUNTER 
SET NUMBER OF ITERATIONS TO DO 
COUNT TEST NUMBERS 
SET TEST NUNBER IN APT MAILBOX 
SAVE SCOPE LOOP ADDRESS 
SAVE ERROR LOOP ADDRESS 
CLEAR THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOW 0NE(1) ERROR ON NEXT TEST 
DISPLAY TEST NUNBER 
FUDGE RETURN ADDRESS 
FIXES PS 

MAX. NUNBER OF ITERATIONS 


.ENABL LSB 


000176 002140 

165166 

1651U2 

177600 

000007 

002134 000001 


015477 

015504 

000176 

015515 

165104 


165100 

177600 


000025 

015472 


;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

. ‘ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
; ‘SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
;*WHEN OPERATING IN TTY FLAG NODE. 


0 wi v* 

SCKSWR: CMP 
BNE 
TSTB 
BPL 
NOVB 
BIC 
CHP 
BNE 
CHPB 
BEQ 

TYPE 

SGTSWR: TYPE 
NOV 
TYPOC 
TYPE 
CLR 
CLR 
TSTB 
BPL 

NOVB 
BIC 


19$: 

7$: 


9$: 


CHP 

BNE 

TYPE 


#SWREG,SWR 

15$ 

B$TKS 

15$ 

8$TKB,-(SP) 
#*C177.(SP) 
*7ASP) + 

15* 

SAUTOB.fi 

15$ 

,$CNTLG 

,$M5WR 

SWREG,-(SP) 

,$NNEW 

-(SP) 

-(SP) 

S$TKS 

7$ 

8$TKB,-(SP) 

fC177.(SP) 


(SP),#25 

10 $ 

,$CNTLU 


IS THE SOFT-SWR SELECTED? 

BRANCH IF NO 
CHAR THERE? 

IF NO, DON'T WAIT AROUND 
SAVE THE CHAR 
STRIP-OFF THE ASCII 
IS IT A CONTROL G? 

NO, RETURN TO USER 

ARE WE RUNNING IN AUTO-NODE? 

BRANCH IF YES 

ECHO THE CONTROL-G (*G) 

TYPE CURRENT CONTENTS 

SAVE SWREG FOR TYPEOUT 

GO TYPE— OCTAL ASCII (ALL DIGITS) 

PROMPT FOR NEW SWR 

CLEAR COUNTER 

THE NEW SWR 

CHAR THERE? 

IF NOT TRY AGAIN 


;;PICK UP CHAR 
;;MAKE IT 7-BIT ASCII 


;IS IT A CONTROL-U? 

.'BRANCH IF NOT 

;YES, ECHO CONTROL-U CU) 


SEQ 0054 


D 5 


CVDRDB 

DRV11J D 

IAG 1ST 

PRT2 
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CVDRDB. 

PIT 11 

D- AUG-81 

10:52 


TTY INPUT ROUTINE 


(1) 

(1) 

(1) 

oo 

m 

000006 


20$: 

ADD 

BR 

#6.SP 

i9i 

.‘.‘IGNORE PREVIOUS INPUT 
; .-LET'S TRY IT AGAIN 

(1) 

(1) 

015072 

021627 

000015 


10$: 

CNP 

(SP) ,#15 

; ; I S IT A <CR>? 

(1) 

01 5076 

001022 




BNE 

16$ 

; .BRANCH IF NO 

(1) 

015100 

005766 

000004 



TST 

4 (SP) 

;;YES, IS IT THE FIRST CHAR? 

(1) 

015104 

001403 



SEQ 

11$ 

.‘.‘BRANCH IF YES 

(1) 

015106 

016677 

000002 

165024 


NOV 

2(SP),asuR 

.‘.'SAVE NEW SWR 

(1) 

015114 

062706 

000006 


11$: 

ADD 

#6,SP 

;; CLEAR UP STACK 

(1) 

015120 

104401 

002165 


14$: 

TYPE 

,$CRLF 

$INTAG.«1 

.‘.‘ECHO <CR> AND <LF> 

(1) 

015124 

123727 

002135 

000001 


CNPB 

; .RE-ENABLE TTY KBD INTERRUPTS? 

(1) 

015132 

001003 



BNE 

15$ 

; .‘BRANCH IF NOT 

(1) 

015134 

012777 

000100 

165002 


NOV 

#100.a$TKS 

;; RE -ENABLE TTV KBD INTERRUPTS 

(1) 

015142 

000002 


15$: 

RTI 

PC,$TYPEC 

; .-RETURN 

(1) 

015144 

004737 

013072 


16$: 

JSR 

;;ECHO CHAR 

xl) 

015150 

021627 

000060 



CNP 

(SP). 060 

; ; CHA^ < 0? 

(1) 

015154 

002420 




BIT 

18$ 

,* .-BRANCH IF YES 

(1) 

015156 

021627 

000067 



CNP 

(SP). 067 

;;CHAR > 7? 

(1) 

015162 

003015 




BGT 

18$ 

; .‘BRANCH IF YES 

(1) 

015164 

042726 

000060 



OIC 

#60, (SP)* 

;; STRIP-OFF ASCII 

(1) 

015170 

005766 

000002 



TST 

2(SP) 

; ,* I S THIS THE FIRST CHAR 

(1) 

015174 

001403 



BEQ 

17$ 

.* .‘BRANCH IF YES 

(1) 

015176 

006316 




ASL 

(SP) 

;;N0, SHIFT PRESENT 

(1) 

015200 

006316 




ASL 

(SP) 

;; CHAR OVER TO NAKE 

(1) 

015202 

006316 




ASL 

(SP) 

;; ROON FOR NEW ONE. 

(1) 

015204 

005266 

000002 


17$: 

INC 

2(SP) 

.’.‘KEEP COUNT OF CHAR 

(1) 

015210 

056616 

177776 



BIS 

-2(SP), (SP) 

;;SET IN NEW CHAR 

(1) 

015214 

000707 




BR 

7$ 

.‘.‘GET THE NEXT ONE 

(1) 

015216 

104401 

002164 


18$: 

TYPE 

,$QUES 

2o$ 

.-.‘TYPE ?<CR><LF> 

(1) 

015222 

000720 




Bfi 

;; SIMULATE CONTROL-U 

(1) 

(1) 

(1) 

(2) 

(1) 





.DSABL 

LSB 







;;***»« 

.‘•THIS 

ROUTINE 

WILL INPUT A 

SINGLE CHARACTER FROM THE TTY 

(1) 





;*CALL: 




(1) 





;* 

RDCHR 


;,* INPUT A SINGLE CHARACTER FROM 

(1) 





;« 

RETURN HERE 

;; CHARACTER IS ON THE STACK 

(1) 





;* 



.-.-WITH PARITY BIT STRIPPED OFF 


( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

(1) 

( 1 ) 


015224 
015226 
015234 
015240 
015242 
015250 
015256 
015264 
015f 
015* 

01 s\ 

015310 


011646 

Voffl 

100375 

117766 

042766 

026627 

001013 

105777 

H»8 

042716 


000004 000002 
164704 

164700 000004 
177600 000004 
000004 000023 

164652 

164646 

1776U) 

000021 


SRDCHR: NOV 
NOV 


1 $: 


2 $: 


TST8 

BPL 

NOVB 

BIC 

CMP 

BNE 

TST8 

BPL 

NOVB 

BIC 

CNP 

BNE 


(SP).-(SP) 

4(SP),2(SP) 

a$TKS 

a$TK8,4(SP) 
# A C<177>,4(SP) 
4(SP) ,#23 
3S 

aSTKS 

2 $ 

aSTKB.-(SP) 
# A C177,(SP) 
(SP)+.02 1 

2 $ 


;PUSH DOWN THE PC 
;SAVE THE PS 
.‘WAIT FOR 
;A CHARACTER 
.-READ THE TTV 
;6ET RID OF JUNK IF ANY 
;IS IT A CONTROL-S? 
.•BRANCH IF NO 
.‘WAIT FOR A CHARACTER 
.‘LOOP UNTIL ITS THERE 
;6ET CHARACTER 
;NAKE IT 7-BIT ASCII 
;IS IT A CONTROL-Q? 

;IF NOT DISCARD IT 


SEQ 0055 


CVDRDB DRV11J 0IA6 TST PRT2 
CV0RD6.P11 10- AUG-81 10:52 


HACY11 306(1063) 10-AUG-81 

TTY INPUT ROUTINE 


E 5 

11:00 PAGE 2-33 


SEO 0056 


( 1 ) 
( 1 ) 
( 1 ) 
( 1 ) 
(1) 
< 1 ) 
< 1 ) 
< 1 ) 
< 1 ) 
( 2 ) 
( 1 ) 
( 1 ) 
( 1 ) 
< 1 > 
( 1 ) 
< 1 > 

(i) 

(i) 

<i) 

(i) 

(i) 

<n 

<n 

(i) 
<i > 
(i) 
(i) 
<i> 
<D 
(i) 
<i) 
<i) 

<n 

(i) 

(i) 

<i) 

(i) 

(i) 

<n 

<i) 

(i) 

<i) 

(1) 
1 448 

< 1 ) 

( 2 ) 
( 1 ) 
( 1 ) 
( 1 ) 
(3) 
(3) 
(3) 
(3) 
(3) 
<‘3> 



015354 

015356 

015362 

015366 

015370 

015372 

015374 

015400 

015402 

015406 

015410 

015414 

015420 

015424 

015426 

015432 

015436 

015440 

015442 

015450 

015456 

015460 

015461 

015462 

015472 

015477 

015504 

015515 


015526 

015534 

015542 

015544 

015546 

015550 

015552 

015554 


010346 

012703 

022703 

101405 

104410 

112613 

122713 

001003 

104401 

000763 

111337 

104401 

122723 

001356 

105063 

104401 

012603 

011646 

016666 

012766 

000002 

000 

000 

000010 

052536 

136 

005015 

040 


012737 

012737 

010046 

010146 

010246 

010346 

010446 

010546 


000004 

000004 

000004 

000040 


000021 

000140 

000175 

000004 


015462 

015472 


000177 

002164 

015460 

015460 

000015 

177777 

002166 


000004 

015462 


005015 

006507 

053523 

047040 


015672 

000340 


3$: 


4$: 


BR 

CAP 

BEQ 

CAP 

BLT 

CAP 

BGT 

BIC 

RTI 


1$ 

4(SP).#$XON 

IS 

4(SP>,#140 

4$ 

4(SP>,#175 

4$ 

#40,4(SP> 


; YES- RESUME 
; I S IT A RANDOM XON? 

; BRANCH IF YES 

;1S IT UPPER CASE? 

.'BRANCH IF YES 

;IS IT A SPECIAL CHAR? 

.•BRANCH IF YES 

.'MAKE IT UPPER CASE 

;G0 BACK TO USER 


.RAN001 

.RAN001 


•THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
•CALL: 

• RDLIN 

• RETURN HERE 

• 


;; INPUT A STRING FROM THE TTY 

.-.-ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

.-.‘TERMINATOR WILL BE A BYTE OF ALL O’S 


SRDLIN: 

IS: 

2 $: 


10 $: 

4$: 

3$: 


000002 

000004 


000 

000012 

020122 

053505 


000024 

000026 


9$: 

STTYIN: 

SCNTLU: 

SCNTLG: 

SMSWR: 

SMNEW: 

.S8TTL 


MOV 

MOV 

CMP 

BLOS 

RDCHR 

H0V8 

CMP8 

BNE 

TYPE 

BR 

MOVB 

TYPE 

CMPB 

BNE 

CLRB 

TYPE 

MOV 

MOV 

MOV 

MOV 

RTI 

.BYTE 

.BYTE 

.BLKB 

.ASCIZ 

.ASCII 

.ASCIZ 

.ASCIZ 

POWER 


R3.-(SP> 

#$TTYIN,R3 

#$TTYIN*8.,R3 

4$ 

(SPH, (R3) 
#177, <R3) 

3$ 

-SOUES 

is 

(R3),9$ 

,9$ 

#15.(R3>* 

2$ 

-1 (R3) 

,$LF 

(SPM.R3 

(SP).-(SP) 

4(SP).2(SP) 

#$TTYIN,4(SP) 


.'.•SAVE R3 
; .* GET ADDRESS 
; .-BUFFER FULL? 

;;BR IF YES 

;;G0 READ ONE CHARACTER FROM THE TTY 

;;GET CHARACTER 

;.*IS IT A RUBOUT 

.-.'SKIP IF NOT 

.'.'TYPE A •?• 

;; CLEAR THE BUFFER AND LOOP 
;;ECHO THE CHARACTER 

; .-CHECK FOR RETURN 
.-.-LOOP IF NOT RETURN 
; .-CLEAR RETURN (THE 15) 

.-.-TYPE A LINE FEED 
"RESTORE R3 

••ADJUST THE STACK AND PUT ADDRESS OF 
;; FIRST ASCII CHARACTER ON IT 


THE 


0 
0 
8 . 

/*U/<15><12> 
/*G/<15x12> 

<1 5><12>/SWR = 

/ NEW = / 

DOWN AND UP ROUTINES 


* -RETURN 

;; STORAGE FOR ASCII CHAR. TO TYPE 
;; TERMINATOR 
.-.-RESERVE 8 BYTES 
;; CONTROL *\T 
;; CONTROL "G" 


FOR TTY INPUT 


: POWER DOWN ROUTINE 

JpWRDN: MOV #$ILLUP,B#PWRVEC ;;S ET FOR FAST UP 
#340 , BfPWRVE C *2 ;;PR 10:7^ 

RO.-(SP) ;;PUSH RO ON STACK 

R1,-(SP) .-.-PUSH R1 ON STACK 

R2,-(SP) .-.-PUSH R2 ON STACK 

R3,-(SP) .-.-PUSH R3 ON STACK 

R4,-(SP> .-.-PUSH R4 ON STACK 

R5,-(SP> .-.-PUSH R5 ON STACK 


MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 


F 5 

CVDRDB DRV1 1 J DIAG TST PRT2 HACY11 306(1063) 10-AUG-81 11:00 PAGE 2-34 

CV0RD6.P1 1 10- AUG-81 10:52 POWER DOWN AND UP ROUTINES 


(3) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

<1> 

< 2 ) 

( 1 ) 

(1) 

(1) 

(1) 

( 1 ) 

( 1 ) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(3) 

(1) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

( 1 ) 

(1) 

( 1 ) 

(1) 

1449 

1450 

1451 
(1) 
( 2 ) 
(1) 
(1) 
(1) 
(1) 
(1) 
( 1 ) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(3) 


015556 017746 

0,5562 nm 


0155M 00b000 

015576 000776 


015600 

015606 

015612 

015616 

015622 

015624 

015630 

015632 

015634 

015636 

015640 

015642 

015644 

015652 

015660 

015662 

015664 

015666 

015670 

015672 

015674 

015676 

015700 


012737 

013706 

005037 

005237 

001375 

012677 

012605 

012604 

012603 

012602 

012601 

012600 

012737 

012737 

104401 

015700 

012716 

003134 

000002 

000000 

000776 

000000 

005015 


0157 

0157L . 

015740 005740 


164356 

015676 

015600 000024 


015672 000024 
015676 
015676 
015676 


164310 


015526 000024 
000340 000026 


042522 052123 


010046 

016600 000002 


015742 111000 
015744 006300 
015746 016000 015766 
015752 000200 


015754 

015756 

015764 


011646 

016666 

000002 


NOV 

NOV 

NOV 

HALT 

BR 


aSWR.-(SP) ; ; PUSH iSWR ON STACK 

SP.SSAVR6 ;;SAVE SP 

ttPWRUP.i#PWRVEC ;;SET UP VECTOR 


.-2 


;;HANG UP 


•POWER 

Ipwrup 


1 $: 


UP ROUTINE 


SPWRNG: 

SPWRAD: 

SILLUP: 

SSAVR6: 

PWRNSG: 

.EVEN 

.S8TTL 


NOV 

f SILLUP. MPWRVEC 

NOV 

SSAVR6.SP 

CLR 

SSAVR6 

INC 

SSAVR6 

BNE 

IS 

NOV 

(SPH.iSWR 

NOV 

(SP)+.R5 

NOV 

(SP) *,R4 

NOV 

(SP)*,R3 

NOV 

(SP)+,R2 

NOV 

(SP)*,R1 

NOV 

(SP) +.R0 

NOV 

#SPWRDN.B#PWRVEC 

NOV 

TYPE 

034O.a#PWRVEC*2 


.WORD 

NOV 

.WORD 

RTI 

HALT 

BR 

0 

.ASCJZ 


PWRNSG 

<PC>*.<SP> 

START! 


; ; SET FOR FAST DOWN 
;;GET SP 

;;WAIT LOOP FOR THE TTY 
;;WAIT FOR THE INC 
;;0F WORD 

;;POP STACK INTO BSWR 
;;POP STACK INTO R5 
;;POP STACK INTO R4 
;;POP STACK INTO R3 
;;POP STACK INTO R 2 
;;POP STACK INTO R1 
;;POP STACK INTO RO 
;;SET UP THE POWER DOWN VECTOR 
;;PRI0:7 

.-.‘REPORT THE POWER FAILURE 
; .-POWER FAIL NESSAGE POINTER 
;; RESTART AT START1 
;; RESTART ADDRESS 


.-.-THE POWER UP SEQUENCE WAS STARTED 
.-2 ;; BEFORE THE POWER DOWN WAS COMPLETE 

;;PUT THE SP HERE 
<1 5><1 2>/RESTARTtD FRON PWR FAIL/ 


TRAP DECODER 


.-•THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE TRAP INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;*G0 TO THAT ROUTINE. 


STRAP: NOV 
NOV 
TST 
N0V8 
ASL 
NOV 
RTS 


RO.-(SP) 

2<SP).R0 

-(RO) 

(RO).RO 

RO 

$TRPAD(RO).RO 

RO 


.-.-SAVE RO 

;;6ET TRAP ADDRESS 
;;8ACKUP BY 2 
.-.-GET RI6HT BYTE OF TRAP 
; .-POSITION FOR INDEXING 
;; INDEX TO TABLE 
;;G0 TO ROUTINE 


.-.-THIS IS USE TO HANDLE THE ’3>ETPRI" MACRO 


000004 000002 


STRAP2: NOV 
NOV 
RTI 


(SP) .-(SP) 
4(SP5.2(SP) 


;;NOVE THE PC DOWN 
.-.-MOVE THE PSW DOWN 
; .-RESTORE THE PSW 


.S8TTL TRAP TABLE 


SEQ 0057 


CVDRDB 

DRVl 1 J D 

[AG TST 

PRT2 

CVDkDB. 

PI 1 11 

J-AUG-81 

10:52 

(3) 




(3) 




(3) 




(3) 




(3) 




(3) 




(3> 

015766 

015754 


(3) 

015770 

012660 


(3) 

015772 

01 3506 


(3) 

015774 

013462 


(3) 

015776 

013522 


(3) 

016000 

013710 


d) 




(3) 

016002 

015012 


n> 




(j) 

016004 

014742 


(3) 

016006 

015224 


(3) 

016010 

015354 


1452 




1453 




1454 




1455 

1456 

1457 

016012 

041600 

042126 

016054 

042200 

053122 

1458 



043505 

1459 

016101 

122 

1460 

016120 

042522 

020107 

1461 

016142 

051111 

020122 

1462 

016155 

101 

051103 

1463 

016170 

046511 

020122 

1464 

016203 

111 

051123 

1465 

016216 

046111 

042514 

1466 

1467 

1468 

016251 

103 

044510 

016266 

046111 

042514 

1469 

016316 

047111 

042524 

1470 




1471 

016343 

115 

046125 

1472 

016375 

126 

041505 

1473 

016416 

051105 

050122 

1474 

016463 

105 

051122 

1475 

016550 

051105 

050122 

1476 

1477 

1478 

1479 

016615 

105 

051122 

016666 

002116 

002432 

1480 

016702 

002116 

002432 

1481 

016722 

002116 

002432 

1482 

016736 

002116 

002432 

1483 




1484 




1485 




1486 




1487 




1488 




1489 





HACY11 306(1063) 10-AUG-81 11:00 

TRAP TABLE 


6 5 
PAGE 


2-35 


SEQ 0058 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BT THE •'TRAP" INSTRUCTION. 


; ROUTINE 

iTRPAD: .WORD 
JTYPE 
STYPOC 
STYPOS 
STVPON 
JTYPDS 


JTRAP2 
;;CALL=TYPE 
;;CALL=TYPOC 
;; CALL =TYPOS 
; ;CALL=TYPON 
;;CALL=TYPDS 


TRAP+1 (104401) 
TRAP+2 ( 1 04402) 
TRAP*3( 104403) 
TRAPU( 104404) 
TRAP*5( 104405) 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


SGTSWR ;;CALL=GTSWR TRAP*6< 104406) GET SOFT-SWR SETTING 


SCKSWR ;;CALL=CKSWR 
tRDCHR ;;CALL=RDCHR 
SRDLIN ;;CALL=RDLIN 


TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
TRAP+1 0(1 04410) TTY TVPEIN CHARACTER ROUTINE 
TRAP+11 (104411) TTY TYPEIN STRING ROUTINE 


042122 

030461 

052040 

042522 

042522 

051040 

042522 

051040 

040507 

020120 

040507 

051122 

044524 

020124 

020103 

041520 

020103 

041520 


002122 

002122 

002122 

002120 


.S8TTL ASCII MESSA6ES 
:;GPA TITLED: 
tlTLED: .ASCIZ 
;;GPA TLCA8L: 

TLCABL: .ASCIZ 


.ASCIZ <15><12>/CVDRDA DRV11J DIAG TEST PART 2/<15><12> 
<200>/CVDRDB DRV11J DIAG TEST PART 2/<200> ;;GPA 
.ASCIZ <15X12>/DRV11J CABLE REQ'D/<15x12> 

<200>/DRVl 1 J CABLE REQ'D/<200> ;;GPA 


EMI 
EM2 
EM3 
EM4 
EM5 
EM6 
EM7: 
EM10: 
;;GPA 
§M11 : 
EMI 2: 
;; GPA 
§*13: 
EMU: 
DH1 
DH2 
DH3 
DH4 


DTI 

DT2 

DT3 

DT4 


.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
EM11: 
.ASCIZ 
.ASCIZ 
EMI 3: 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 


/REG TIMEOUT ER/ 

'REG READ/WRITE ER' 

/IRR REG ER/ 

/ACR REG ER/ 

/IMR REG ER/ 

/ISR REG ER/ 

/ILLEGAL VECTOR MEM ADDR ER/ 

/CHIP STAT ER/ 

.ASCIZ /ILLEGAL INTERRUPT RECEIVED/ 

/ILLEGAL INTERRUPT REC'D/ 

/INTERRUPT TEST ERROR/ 

.ASCIZ /MULTIPLE INTERRUPTS RECEIVED/ 
/MULTIPLE INTERRUPTS REC'D/ 

/VECT ADDR HEM ER/ 

/ERRPC TSTMUH BUSADR EXPCT RCVD/ 

/ERRPC TSTNUM BUSADR VAM ADDR EXPCT 

/ERRPC TSTNUM BUSADR VAM ADDR/ 

/ERRPC TSTNUM TESTPC BUSADR VAM ADDR/ 


; ;GPA 


;;GPA 


RCVD/ 


SERRPC, TSTNUM, S8DADR . SGDDA T . S8DDAT . 0 . 

SERRPC, TSTNUM, $8DADR,VECVAL,VECL0C .SGDDAT , J8DDAT ,0 
SERRPC . TS TNUM . SBDADR . VEC VAL . VE CLOC . 0 
SERRPC, TSTNUM, SGD ADR, S8D ADR, VECVAL.VECLOC.O 


*D8UF ' IS THE ST0RA6E AREA FOR SYSMAC LOCATIONS 0-202 
PRESERVED IN ORDER TO TEST DRV11J VECTORING TO 
VECTOR SPACE 0-200. 


CVDRD6 DRVliJ DIAG TST PRT2 
CVDRDB.P11 10- AUG-81 10:52 

1490 016754 000102 

1491 

1492 

1493 

1494 

1495 

1496 017160 000100 

1497 017360 


H 5 
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ASCII MESSAGES 

D8UF: .BUy 66. ; 1ST APRS OF DATA STORAGE AREA 

; VECTOR BUFFER USED FOR VECTOR UNIQUENESS TEST 
;FOR 64 INTERRUPT VECTORS. 

V§UF: .BLKU 64. 

ENDBUF : 


CVDRD6 DRV11J DIAG TST PRT2 
CVORDB.P1 1 1 0“ AUG-81 10:52 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 017360 005227 177777 

1516 017364 001002 

1517 017366 004737 000400 

1518 017372 005727 

1519 017374 000000 

1520 017376 000207 

1521 

1522 017400 

1523 000400 

1524 000400 005037 

1525 000404 013746 

1526 000410 012737 

1527 000416 012700 

1528 000422 005720 

1529 000424 000240 

1530 000426 020027 

1531 000432 103773 

1532 000434 010037 

1533 000440 012700 

1534 000444 040037 

1535 000450 040037 

1536 000454 040037 

1537 000460 040037 

1538 000464 040037 

1539 000470 012737 

1540 000476 012637 

1541 000502 000207 

1542 

1543 000504 012716 000512 

1544 000510 0OOOQ2 

1545 000512 012637 000004 

1546 000516 012700 000402 

1547 000522 013701 000376 

1548 000526 010602 

1549 000530 012704 000570 

1550 000534 014446 

1551 000536 020427 000546 

1552 000542 101374 

1553 000544 010607 


I 5 , 
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FALCON (KXT-11) UPGRADE ROUTINES. 

.S8TTL FALCON (KXT-11) UPGRADE ROUTINES. 


; ; GPA 


; ; GPA 


THE FOLLOWING ROUTINES HAVE BEEN ADDED TO ALLOW DIAGNOSTIC(S) 

TO RUN ON A FALCON (KXT-11 ) 3ASED SYSTEM. 

TO DETERMINE WHETHER WE'RE A FALCON OR NOT, WE'LL SIZE THE 1ST 3/4 OF 
THE I/O PA6E (28* TO 31 K). FALCON HAS 2* W LOCAL RAH AT 28* (+4) TO 30* 
AND A MACRO-ODT AT 30* TO 31*. CONSEQUENTLY. ALL I/O DEVICES MUST 
BE PLACED BETWEEN 174000 AND 177776. ADDITIONALLY, WE'LL STRAP THE 
ENT AND TRAP SERVICE LEVEL TO PRI6, AND SET THE HALT VECTOR SO THAT 
WE CAN STOP THE SUCKER ! ! 

TO MINIMIZE THE IMPACT OF THESE CHANGES ON FINAL PROGRAM SIZE. THE 
BULK OF THIS CODE IS PLACED IN THE FL0XTIN6 VECTOR SPACE (400-776). 

IF THE CPU AT HAND IS A FALCON (KXT11). IT STAYS THERE (NO HARM DONE). 
OTHERWISE, THE AREA IS RESTORED TO ITS ORIGINAL ' TRAP-CATCHER’ * STATE. 


FALCON: INC 
BNE 
CALL 
IS: TST 

KXTFLAG: 0 

RETURN 


01 7374 
000004 

000504 000004 
160010 


174000 

017374 

000040 

000006 

000016 

000022 

000032 

000036 

170000 000140 
000004 


KXTCHK: 


IS: 


2 $: 

3S: 

4S: 


SSVPC= 

.= 400 

CLR 

MOV 

NOV 

MOV 

TST 

240 

CMP 

BLO 

MOV 

MOV 

BIC 

BIC 

BIC 

BIC 

81 C 

MOV 

MOV 

RETURN 

MOV 

RTI 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CMP 

BHI 

MOV 


#-1 

IS 

KXTCHK 
(PC) + 


KXTFLAG 
B#4,-(SP) 
#2s.a#4 
*1 60010.R0 
(RO)* 

RO. #174000 
IS 

RO .KXTFLAG 

#40, RO 

R0,S#6 

R0,B#16 

R0,B#22 

R0,B#32 

«0.B#36 

#i?oooo,a#i4o 

(SP)+,a#4 


#3S.(SP) 

(SP)+,a#4 
#402. RO 
a#3?£,Ri 
SP.R2 
#6i.R4 

-(r4>.-(sp> 

R4.#5S 

4S 

SP.PC 


ONCE-ONLY 


1 1 1 


; EXECUTE FALCON CHECK 
; TEST FALCON FLAG... 

;...NZ = FALCON... 

; . . .AND RETURN TO CALLER... 


RESTORE FROM 374:376 A1 END 
ASSUME NOT FALCON. 

SAVE ERROR VECTOR. 

SET A TRAi> CATCHER. 

FALCON RAM STARTS AT 28K+4. 


; SIZE TO 31K. 

; MUST BE FALCON, SET THE FLAG 
; GET PRI1 BIS ... 

; . . .AND LOWER OUS-ERROR... 
;...BPT... 

; . . . JOT . . . 

EMT 

;! "AND* TRAP SERVICE TO PRI6 
; ENABLE ’BREAK" HALT. 

; RESTORE ERROR VECTOR... 
;...AND RETURN 

. fRAP — NOT 5, FALCON... 
.-...CONTINUE. 

; RESET ERROR VECTOR 
; SET-UP TO RESTORE FLOATING... 
;... VECTORS (400 - 776). 

; SAVE STACK POINTER IN R 2 

; PUSH THE RESTORE CODE... 
.-...ONTO THE STACK. 

; AND EXECUTE IT. 


;GPA 

;GPA 

;GPA 

;GPA 

;GPA 

;GPA 

; ; GPA 
;;GPA 
;;GPA 
;;GPA 
; ; GPA 
;;GPA 
; ; GPA 
;;GPA 
; ; GPA 
;;GPA 
;;GPA 
; ; GPA 
;;GPA 
;;GPA 
;;GPA 
; ; GPA 
; ; GPA 
;;GPA 
;;GPA 
;;GPA 

;;GPA 
;;GPA 
;;GPA 
;;GPA 
; ; GPA 
;;GPA 


;GPA 

;GPA 

;GPA 

;GPA 


SEG , 
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; ; GPA 


1555 


1568 


1569 


1570 


1571 

0001 OA 

1575 


1576 

017A00 

1577 

017400 

1578 

000001 



177776 

000776 


THIS CODE IS RELOCATED TO AND EXECUTED IN THE STACK AREA. 


$S: 


6 $: 


NOV 

NOV 

CNP 

CNP 

BLOS 

NOV 

RETURN 


R0.-2(R0) 

R1.(R0> 

(RO)*.(RO)+ 

R0.A776 

5$ 

R2,SP 


; RESTORE .♦2... 
.-...HALT (OR IOT) . 


LOOP 'TIL DONE 
THEN RESTORE SP... 
...AND RETURN TO CALLER 


; IF FALCON. THIS AREA IS FREE FOR ANV PROGRAN UNIQUE 
; CHANGES OR DATA STRUCTURES. 

; IF USED, VOU’D BETTER PROTECT IT !!! 

iFREE= <1000-. >/2 ; FREE WORDS LEFT. 

.=$SVPC 
LASTAD* . 

.END 


GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 


; ; GPA 

;;GPA 

;;GPA 


SEQ 0061 


"VDRD8 DRVl J DIAG TST 
CVDRDB.P11 10-AUG-8 

ABASE = 164160 
ACDW1 = OOOOOO 
ACDW2 = 000000 
ACPU0P= 000000 
ACRLOC 002450 
ADDWO = OOOOOO 
AO DUl = OOOOOO 
ADDW10= OOOOOO 
AD0W11= OOOOOO 
ADDW12= OOOOOO 
ADDW13= OOOOOO 
ADDW14* OOOOOO 
AD0W1 5= OOOOOO 
ADDW2 * OOOOOO 
ADDW3 - OOOOOO 
ADDW4 = OOOOOO 
ADDW5 = OOOOOO 
ADDU6 = OOOOOO 
ADDW7 = OOOOOO 
A0DU8 = OOOOOO 
ADDW9 = OOOOOO 
AOEVCT= OOOOOO 
ADEVN = 000001 
AENV = OOOOOO 
AENVH = OOOOOO 
AFATAL= OOOOOO 
AMADR1= OOOOOO 
AMADR2= OOOOOO 
A«ADR3= OOOOOO 
AMADR4= OOOOOO 
AMAHS1 = OOOOOO 
AMAMS2= OOOOOO 
AMAHS3= OOOOOO 
AKAMS4= OOOOOO 
AMSGAD= OOOOOO 
AMSGLG= OOOOOO 
AMSGTY= OOOOOO 
AMTYP1 = OOOOOO 
AMTYP2= OOOOOO 
AMTYP3= OOOOOO 
AMTYP4= OOOOOO 
APASS = OOOOOO 
APR 1 OR- OOOOOO 
APTCSU= 000040 
APT£NV= 000001 
APTSIZ= 000200 
APTSPO= 000100 
APTVEC 011614 
APT200 012066 
ASWREG= OOOOOO 
ATESTN= OOOOOO 
AUNIT = OOOOOO 
AUSUR •- OOOOOO 
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AVECT1= OOOOOO 

DH3 

AVECT2= OOOOOO 

DH4 

BDSAV 002464 

DIR = 

BGCHP3 012636 

DISPLA 

BITO = 000001 

DISPRE 

BITOO = 000001 

DMAP 


DRCSA 

: *!• SM 

DRCSB 

BIT03 = 000010 

DRCSC 

BIT04 = 000020 

DRCSD 

BIT05 = 000040 

DRDBA 

BIT06 = 000100 

DRDBB 

BIT07 = 000200 

DRDBC 

BIT08 = 000400 

DRD8D 

SIT 09 = 001000 

DSWR = 

BIT1 = 000002 

DTI 

BIT10 = 002000 

DT2 

BIT11 = 004000 

DT3 

BIT12 = 010000 

DT4 

BIT13 = 020000 

EDCHP3 

BIT14 = 040000 

£MTVEC= 

: llf rBI" 1 

EMI 


EM10 

BIT3 = 000010 

EM11 

BIT4 = 000020 

EMI 2 

BITS = 000040 

EMI 3 

BIT6 = 000100 

EMU 

BIT7 = 000200 

EM2 

BIT8 = 000400 

EM3 

BIT9 = 001000 

EM4 

BPTVEC= 000014 

EM5 

BYCNT 002470 

EM6 

BYNUM 002472 

EM7 

CAT200 012024 

ENDBUF 

CHPISR= 000140 

ENDTRP 

CIMR = 000040 

EN02OO 

CIRNR = 000020 

ERRVEC= 

1 'j'l 4 ^ 88 

FALCON 


FRMBUF 


GRPCNT 

CLRBF 011334 

GTSWR = 

CLRCSR 011014 

HT = 

CLRIRR 011074 

IE = 

CR = 000015 

iMRLOC 

CRi.F = 000200 

INT8Y4 

CSIMR = 000050 

INTFLG 

CSIRMR= 000030 

INTSR1 

CSIRR = 000110 

INTSR3 

CSISR = 000170 

INTO 

DBUF 016754 

INTI 

DOI SP = 177570 

INT10 

DH1 016416 

INT1 1 

DH2 016463 

INT12 
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016550 

INT13 

012322 

016615 

INT14 

012326 

000400 

INTI 5 

012332 

002142 

INT16 

012336 

000174 

INTI 7 

012342 

002434 

INTI 8 

012346 

002412 

INTI 9 

012352 

002416 

INT2 

012246 

002422 

INT20 

012356 

002426 

INT21 

012362 

002414 

INT22 

012366 

002420 

INT23 

012372 

002424 

INT24 

012376 

002430 

INT25 

012402 

177570 

INT26 

012406 

016666 

INT27 

012412 

016702 

INT28 

012416 

016722 

INT29 

012422 

016736 

INT3 

012252 

012656 

IN T 30 

012426 

000030 

INT31 

012432 

016101 

INT32 

012436 

016251 

INT33 

012442 

016266 

INT34 

012446 

016316 

INT35 

012452 

016343 

INT36 

012456 

016375 

INT37 

012462 

016120 

INT38 

012466 

016142 

INT39 

012472 

016155 

INT4 

012256 

016170 

INT40 

012476 

016203 

INT41 

012502 

016216 

INT42 

012506 

017360 

INT43 

012512 

011636 

INT44 

012516 

012106 

INT45 

012522 

000004 

INT46 

012526 

017360 

INT47 

012532 

011374 

INT48 

012536 

002462 

INT49 

012542 

104406 

INT5 

012262 

000011 

INT50 

012546 

001000 

INT51 

012552 

002442 

011700 

INT52 

INT53 

012556 

012562 

002436 

INT54 

012566 

011644 

INT55 

012572 

012124 

INT56 

012576 

012236 

INT57 

012602 

012242 

1NT58 

012606 

012306 

INT59 

012612 

012312 

1NT6 

012266 

012316 

INT60 

012616 


SEQ 0062 

INT61 012622 
INT62 012626 
INT63 012632 
INT7 012272 
INT8 012276 
INT9 012302 
iOTvEC= 000020 
IRRLOC 002446 
ISRLOC 002444 
KXTCHX 000400 
XXTFLA Cl 7374 
LASTAD= 017400 
LF = 000012 
LMD04 = 000200 
LMD57 = 000240 
LVLCNT 002466 
LVLSAV 002474 
MACR = 000254 
MI MR = 000244 
MIRR = 000250 
MI SR = 000240 
NEXPAS 003200 
NEXPA1 003204 
NEX°A2 003250 
NXDl'V 010632 
NXDE.1 010636 
PACR * 000300 
P1MR 000260 
PIRQ - 177772 
PIRQVE= 000240 
PRO = OOOOOO 
PR1 ■ 000040 
PR2 = 000100 
PR3 = 000140 
PR4 = 000200 
PR5 = 000240 
PR6 = 000300 
PR7 = 000340 
PS = 177776 
PSW = 177776 
PVMA = 000340 
PURMSG 015700 
pyRVEC= 000024 
RDCHR = 104410 
RDLIN = 104411 
RDY = 100000 
RESTRP 011432 
RESVEC= 000010 
RES200 011762 
R6 =JOOO Of 
R7 =1000007 
SETVEC 012210 
SIMR = 000060 




. 5 

11:00 PAGE 4-1 


002216 

StPADR 

002106 

SSTUP = 

1 77777 

0021o5 

SLPERR 

002110 

SSVLAD 

014670 

014124 

SAADR1 

002222 

SSVPC = 

017400 

002200 

SH4DR2 

002226 

SSVR = 

165400 

002246 

SMADR3 

002232 

SSWREG 

002212 

0^0770 

SMADR4 

002236 

SSURAK= 

000000 

014114 

MAIL 

002170 

STESTN 

002174 

010760 

SAM SI 

002220 

STIAES 

002160 

010726 

SAAAS2 

002224 

STKB 

002146 

01 0777 

SA4AS3 

002230 

SI KS 

002144 

010774 

SAAAS4 

002234 

$TN = 

000007 

002210 

SHBADR 

002002 

STPB 

002152 

002211 

SAFLG 

013456 

STPFLG 

002157 

010672 

SMNEU 

015515 

STPS 

002150 

010720 

MS GAD 

002204 

STRAP 

015732 

002103 

MSGLG 

002206 

STRAP2 

015754 

002115 

SASGTY 

002170 

STRP = 

000012 

014134 

MSWR 

015504 

STRPAD 

015766 

002116 

MTYP1 

002221 

STSTA 

002004 

002252 

MTYP2 

002225 

STSTNA 

002102 

014326 

MTYP3 

002231 

STTYIN 

015462 

002112 

MTYP4 

002235 

STYPDS 

013710 

002162 

SAXCNT 

014740 

STYPE 

012660 

002210 

MULL 

002154 

STYPEC 

013072 

002252 

SNWTST= 

000001 

STYPEX 

013?12 

002172 

SOCNT 

013704 

STYPOC 

013;06 

013460 

S0A0DE 

013706 

STYPON 

013522 

002156 

SOVER 

014724 

STYPOS 

013462 

002155 

SPASS 

002176 

SUN IT 

002202 

000104 

SPASTA 

002006 

SUNITA 

002010 

002120 

SPWRAD 

015666 

SUSUR 

002214 

002124 

SPWRDN 

015526 

SVECT1 

002240 

010750 

SPWRAG 

015662 

SVECT2 

002242 

015012 

SPWRUP 

015600 

SXOFF = 

000023 

000003 

SQUES 

002164 

SXON = 

000021 

002000 

SRDCHR 

015224 

SXTSTR 

014474 

002104 

SRDLIN 

015354 

SSGET4= 

000000 

015672 

SRDSZ = 

000010 

SOFILL 

013705 

002135 

SRTNAD 

010772 

m * 

017400 

002114 

SSAVR6 

015676 

• SX = 

002000 

002166 

SSCOPE 

014462 



013457 

SSETUP= 

000117 





